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PREFACE 


This publicaticn provides information on the internal operation of the 
DL/Z system as an application program under DOS/VS. It is intended for 
use ky persons involved in program maintenance and by system programmers 
who are altering the program design. 


Because DL/I DOS/VS is a functional subset of the IBM Information 
Management System/Virtual Storage (IMS/VS), some specific IMS or OS 
terms are used in this manual. These terms are used to allow easy 
reference to the documentation of the related systems. 


A list of abbreviations is provided at the back of this manual. 





DOS/VS_Access Method Services Manual, G6C33-5382. 


DOSZVS_Supervisor and I/0 Macros, 6C33-5373, 


Users employing DL/I DOS/VS in an online environment should have access 
to the following CICS/DOS/VS publications: 


icy 


ICS/DOS/VS_System/Application Design Guide, SH20-9002. 
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The DL/I batch system executes as an applicaticn program in a virtual 
storage environment under DOS/VS. The DCS/VS partition in which the 
DL/I batch system executes is composed of the elements shown in figure 
1.1. These are: 


The system control facility 

The DL/I facility 

The DOS/VS VSAM and SAM data management modules 
The user application progran 


The major components of the DL/I system are the system control facility 
and the DL/I facility. The system control facility receives ccntrel 
from DOS/VS job control, initializes the DL/I batch system, and 
interfaces between DL/I and the user applicaticn program. The DL/I 
facility interfaces with the DOS/VS VSAM and SAM data management modules 
when performing the data base call functicn requested by the user 
application. 


SYSTER CONTROL FACILITY 


The system control facility is divided into four functional areas {see 
Figure 1.2): 


Region control 

Application program control 
Language interface 

Program request handler. 


eee 6 


Region control is responsible for a general group of housekeeping 
functions commen to various optional processing modes of the DL/I DOS/VS 
partition (also called a region). These functions are: 

® Initial interface with DOS/VS job management 

e Analysis and validity checking of DI/I parameter information 


e Loading the batch nucleus. 


Application program control is entered from region control and performs 
the following functicns: 


e Loading the DL/I application control blocks (PSB and DMBs) and 
relocating the contrel block addresses. 


e Creation of the PSB intent list and tha DMB directory (DDIP). 


e Acquiring and formatting storage for the buffer pool ccntrol blocks 
and their related I/0 buffers. 


® Loading the DL/I facility modules, 

® Leading the application program and passing control to it. 

The language interface provides ccmmunication between the application 
program and the program request handler. This module is link-edited 


with the application program and provides a common interface for DL/TI 
calls written in PL/I, COBOL, or Assembler language. 
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Figure 1.1. Flements of a DL/I DOS/VYS Batch Partition 
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Figure 1.2. System Control Facility Relationships 
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The program request handler receives the DL/I call from the user 
application program via the language interface. It performs the 
following functicns: 


*® Checks validity and, if necessary, reformats the caller's parameter 
lists and submits them to the DL/I facility. 


e Accepts parameter lists frem the DLyI facility and moves data to the 
user's work area, if required, 


e Returns control directly to the user application program. 


See Chapter 3 for a detailed description of each of these modules. 


DLZI_FACILITY 


The functions of data base creation, access, maintenance, and 
reorganizaticn are accomplished by the DLyI facility (see Figure 1.3). 
The DL/I call is passed from the system control facility tc the DL/I 
call analyzer, which is the focal point of the DL/I facility. The type 
of call is analyzed (DL/I call, pseudo call, or internal call resulting 
from a DL/I call), and control is passed to the appropriate action 
module to process the call. 

The action modules of the DL/I facility, together with their major 
functions, are listed below: 


e Open/Close Module 


Open DL/I data bases 

Close DL/I data bases 

Interface with data hase logger to write data set open record to 
log tape 


e Delete/Replace Module 


- Delete segment of DL/I data base in conjunction with buffer 
handler 

- Replace segment of a DL/T data base in conjunction with buffer 
handler 

= Interface with data base logger to record changes to log tape 

- Interface with space management for HDAM and HIDAM data bases 

= Interface with index maintenance for data bases with indexes 


e tLoad/Insert Module 


- Load segments into a DL/I:- data base in conjunction with the 
buffer handler 

- Insert. segments into a DL/T data base in conjunction with the 
buffer handler 

- Interface with data base logger to record changes to log tape 

- Interface with space management for HDAM and HIDAM data bases 

~ Interface with index maintenance for data bases with indexes 

- Issue I/O for Simple HSAM and HSAM data bases 


e Retrieve Module 
~ Retrieve a segment of a DL/I data tase in conjunction with the 
buffer handler 


- Perform data base positioning for load/insert 
- Issue I/O for Simple HSAM and HSAM data bases 


4 Licensed Material - Property of IBM 


Index Maintenance 


~ Maintain any indexes for HDAM or HIDAM data bases in cenjunction 
with the buffer handler 
- Interface with data base logger to record changes tc log tare 


Space Management 


- Allocate and maintain free space on DASD in conjunction with the 
buffer handler for storage of DL/I segments for HDAM and HIDAM 
data bases 

= Interface with data base logger to record changes to log tape 


Buffer Handler 

- For HDAM or HIDAM data base, satisfy requests for segments or 
records from data currently available in the buffer pool 

= Issue I/O tc VSAM for HDAM or HIDAM data base requests that 
cannot be satisfied from the huffer pool 

- Issue I/0 to VSAM for all Simple HISAM and HISAM data base 
requests 

Data Base Legger 

= Record all data base modificaticns on the log tape asing DOS/VS 
SAM 


See Chapter 4 for a detailed description of the modules. 
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Figure 1.3. DL/I Facility Relationships 
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In this chapter, DL/I DOS/VS is divided into major functional areas. 
Within each area the functions of the various DL/I components are 
described in the form of HIPO (Hierarchy-Input-Processing-Output) 
charts. 


HIPO charts present a function in a more visual mode than flow charts, 
by showing for each component, what input is processed (left cclumn), 
how it is processed (middle cclumn), and what the resulting output is 
(right column). They are organized hierarchically, which means, for a 
gross overview a component's function, only the higher lever charts have 
to be read, while fer more detailed information the reader can 
selectively go to more detailed lower level charts and eventually to the 
‘corresponding source module listings. 


Graphic symbols used in the following HIPO charts are mostly self- 
explanatory. The meaning of the six kinds of arrows used is as fellows: 


--------- > Data reference 


/ Data movement 
aircon pas aetaas aca 7 


\ 
ry77777\ > Data modification 


—4I\ 
[sseseei > Control flow 
SS. 5 | 





ve} > [58] 
ee] >]106 Off-page connector 
ay Pag 


SIN: was 
fei > on] On-page connector 
—yf fe 


The charts are numbered hierarchically; for instance, a chart x.y may 
refer to a lower level chart for more detailed explanation of one of it 
processing steps. The lower level chart would then be numbered x.y.2z 
and so on. 
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CHART: BKLCT 
Z PAGE 10F 1 
Input Processing Output 
FROM DLZDBHO0O 
CHART 1.3.1 
STEP 1B 





sl \ BKLCT: 


seeej > 
[oi] 


eee 


PteedN paceweeiese Sk 
< jee] >| LOCATE 
ay Jah ee ee 


ferment fof) (I cottvert the cranes’ eo “errr >| —_‘[estavaN”) 


Sa BBR A 8 Greene eens | === == 
[03] Exit 
eer 


Vv 
TO DLZDBHOO 
CHART 1.3. 


STEP 3 


DLZDBHOO - BLOCK LOCATE HIPOMAT 1.1 Diagram - 1.3.1.2-01 






Notes Routine| Label Ref Notes Routine| Label Ref 





ee A LS A tc A a mu mewn a a Cg a ee ne ee ee ae te ap ee eee a a a a re ne = 


DLZDBHOO - BLOCK LOCATE HIPOMAT 1.1 Diagram - 1.3-1.2-01 
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CHART: BYALT 
7 PAGE 1 OF 1 
Input Processing Output 


0 Oe ee a FROM DLZDBHOO 
HART 1.3.1 


Lo 
STEP 1c 


A 
etd BYALT: 


even} > 





aay / 
PST —_— PST 
ae - 7] - ——4A\ [or] Convert the RBA to a block | Seipabeteshemetaned 
[PSTBYTNM ] oe 47] WWIII 77I771_ > PSTBLKNM 
--------—— number and an offset (9000 77777 TTT |7 noncreer 
[02] 
PhesIN- sesso eee eee 
<_ [ee] >} LOCATE 
prc 4 | moon 
1.3.1.8 
PPST _ aa BUFFER 
[erst]; [03] Turn on a bit in the ITVS PREFIX 
od VIVIVTIVITTIT NAN | penne ee 
See buffer prefix indicating i cae [ } 
that this user altered 
this buffer 
[o4] Exit 
‘ 
Vv 
TO DLZDBHOO 
CHART 1.3.1 
STEP 3 
DLZDBHOO - BYTE ALTER —— Fe a “HIPOMAT 1.1 Diagram - 1.3.1.3-01 
Notes Routine} Label Ref Notes Routine| Label Ref 
{o3] See note for BFALT routine 
~~ (chart 1.3.1.4). 
DLZDBHOO - BYTE ALTER ™S—™~C~CS~“s~*~S~S TT HIPOMAT 121 Diagram - 1+3-1-3-01 
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CHART: eeenr, 


, PAGE 1 OF 
Input Processing Output 
~ aaa ~|rrom opzpBHoo f SS 
CHART 1.3.1 
STEP 10D 
al 
el_-J3\ BFALT: 
aece| > 
~———4/ 
PPST —— fd 53 BUFFER 
tes ot —+\ [01] Turn on the bit in the PREFIX 
[eestip.. | es Pe NPI ALL ELLE CANS eee aa 
eo buffer prefix indicating ~"~~---~-"-|// ie [ ‘] 
that this user modified ~ — 
this buffer 
[02] Exit 
[tseeeese 
vais “7 
V7 
Vv 
TO DLZDBHOO 
CHART 1.3.1 
STEP 3 
DLZDBHOO - MARK BUFFER AS ALTERED OS ee “HIPOMAT 1.1 Diagram - 1.3.1.4-01 
Notes Routine} Label Ref Notes Routine] Label Ref 
[02] The bit is turned on in the DLZDBHO00 | MARKALT 
2-byte field BFFRUSID.The 16 
bits correspond from right to 
left to the user id as indicated 
in the PPST. If a higher user id 
than 16 is assigned two or more 
users share the same bit. 
DLZDBHOO - MARK BUFFER AS ALTERED == =~ = ~~ ~~~S~S*~<CS~SCS;«7T«7;}3EPS:*é<S;<TC;«SCSS!!TTTTT HE OMAT 121 Diagram - 1.3.1-4-01 
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CHART: GBSPC 
a PAGE 1 OF 2 
Input Processing Output 
Se eer FROM DLzpBHOr [ ear ag SO og pt Qs Vote, ee ny Py eee 
CHART 1.3. 
ai 
eliity GBSPC: 
ooes| > 
See yee Sr ead SET panacea | 
PST — 
[rerera ey eer eres > 01] Get the address of the 
se tinier aren J appropriate buffer subpool 
SUBP INFORM — 
ABLE - [02] Search thru the buffer 
a — [a]----> ia : 
[ ] _ prefixes of the subpool to 
et eS ee find a buffer that can be 
BUFFER used 
PREFIXES 
~=--->/A — 
ey [a] [03] If a reusable buffer 
- couldn't be found, wait 
until a buffer becomes 
available 
PlusniIn’ gecacScccceme scons 
< lee} >| DLZOWAIT 
Negeny/ | a ------ --- =: 
1.7.5 
BFPL — , 2 BUFFER 
oe > [04] Move the CI id into the _ | > [3] PREFIX 
paces | | re . buffer prefix ~7y7 b- [=]zzt > ‘a 2 | 


DLZDBHOO ~- GET BUFFER SPACE 





The subpool information table is 
used to find the buffer subpool 
with the buffers containing the 
least excessive number of bytes 
for this space request. 


[22] 


Only buffers are used that are 
not ‘non reusable* and that are 
not permanent write error 


buffers. 


ee ee ee en ne ne ee 


DLZDBHOO ~- GET BUFFER SPACE 


{05} If the buffer is busy, 
wait for it 


{a]----> 
FiLSAIN. goee se OSS 

< [ee] >| DLZOWAIT 
t iomteate | 


HIPOMAT 1.1 Diagram - 1.3.1.5-01 





Routine} Label Ref Notes Routine} Label Ref 


HIPOMAT 1.1 Diagram - 1.3.1.5-01 
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Input Processing 
DL/I BUFFER —_ 1 
nes emery [o6} If the buffer needs to be V7 2 
---—--------—, a VIITIFITII7T 
aSesese= written, write it (94000000 ~TTTTTTTTT J 
= 07 ff ‘ | 
[™]----> {°7] Mark buffer as ‘non zzt‘>[a] 
reusable‘ “-p7 te 


[03] Put the address of the 
buffer and the size of it T7777 TTTTe~A |7 
into the PST 


[03] Exit 


Vv 
TO DLZDBHOO 
CHART 1.3.1 
STEP 3 


DLZDBHOO - GET BUFFER SPACE Pe ire ee PGR SG RS ee 
Notes Routine} Label Ref Notes 


nT TS (ee = as ne 


DLZDBHOO - GET BUFFER SPACE 
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HIPOMAT 1.1 Diagram - 1.3.1.5-02 


CHART: _GBSPC 
PAGE 2 OF 2 


Output 


DATA BASE 
PST 
[ae | 


HIPOMAT 1.1 Diagram - 1.3.1.5-02 


Input Processing 
oe ep ee ge ee et ene FROM DLZDBHOO oe = 
CHAR’ 
STEP 1 F AND G 
s 
[zs MRKEMPT: 
aces] > 
ay 
"PST ____~Ss«éMBSUBPOOL 
ommmmmmmmeng = DIR ff prentrerenmen > [ez] Get the first buffer 
PSTBLKNS ee ee 4 ; 
am c prefix in the subpool that 
PSTDMBNM es fn ; 
popedasterr anata applies 
PSTACBNM 
oe BUFFER 
PREFIXES 
phi pieeateeers [a If 
ne em cen neem ] _ PSTDMBNM, PSTACBNM, PSTBLKNM 





A ae ye 


don't match 
BFFRDMB, BFFRDCB,BFFRCIID , 
go to step 4 








BUFFER 
PREFIX {a] x 
een 7 
A. Mark the buffer as A 
empty eee 
B. Issue RELPAG macro 
Cc. Put the buffer on the | 
bottom of the use chain@777~--~~~~ |\47 


this is not the last 
buffer prefix, get the 
next buffer prefix and go 
to step 2 





ne BLUBBHOO 








Ti+3-1 
DLZDBHOO ~ FREE BUFFER SPACE aa ae 
Notes Routine} Label Ref Notes 
{02} To find the buffer subpool that 
- applies to the call , the DMB 
SUBPOOL DIR and the DMB number 
in PSTDMBNM are used. 
[02] The caller can have the buffer 
handler free only one 
buffer (PSTDMBNM, PSTACBNM, 
PSTBLKNM not 0) or all buffers 
of a data set (PSTDMBNM, PSTACBNM 
not 0,PSTBLKNM=0) or all buffers 
of a data base(PSTDMBNM = DMB 
number of the data 
base, PSTACBNM, PSTBLKNM=0) . 
DLZDBHOO - FREE BUFFER SPACE == SSCS OMA 
Licensed Material 


- Property of IBM 


CHART: MRKEMPT 
PAGE 1 OF 
Output 


ae a oe re en ae a a a ee ee. 


OOL 
TNFORM TABLE 


HIPOMAT 1.1 Diagram - 1. 3. 1.6-01 


hs ee 


Routine} Label Ref 


es es as nr 


~HIPOMAT _ 1.1 Diagram - 1.3.1.6-01 
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CHART: PGUSR 
PAGE 1 O0F 2 
Input Processing Output 
~~] prom pLzpBHOO [ ~~  ——~<S~<C;«T«7]7C:] C]CSCS*W Be ee et pp eg NT 
CHART 1.3.1 
STEP 1H 
e 
er PGUSR: 
BUFFER ad a 
PREFIXES (i x] : [01] Get the first of all 
[ }-7-> B] buffer prefixes 
(Pret BRP roc > 02] If the buffer was not 
[PPsTiD ] altered by this specific 
user, go to step 11 
UFF. — 
PREFIX PSTDMBNM | cna aa > [03] If the id's are not equal, 
[ ] euaeatcieaen go to step 11 
me em mp PSTACBNM 
PSTBLKNM — 
tania [a] . [o4] If the buffer is not ‘non 
~- reusable’, go to step 6 
a “pure: CC 
es [os] Mark the buffer empty, ars PREFIX 
fa] a i 
issue RELPAG macro, and ~~j/ ‘- [ } 
put the buffer on the []zz! > nos ee 
bottom of the use chain. POOL 
INFORM TABLE 
Go to step 22000 re neta a cn 
USE CHAIN 


a 


a> 


ee AY <n Se a ct nab ee See ee 


DLZDBHOO - PURGE BUFFERS FOR A SPECIFIC USER 





es 


[02] This routine scans thru all 
~~" buffer prefixes. 


[03] The caller may select a certain 

data base, a certain data set or 
a certain buffer to be purged. 
He indicates his choice by 
putting the number of the 
desired item into PSTDMBNM, 
PSTACBNM or PSTBLKNM. 
these fields indicate that 
purging of all components of the 
item on the next higher level is 
desired. This module checks the 
contents of the above mentioned 
PST fields against the contents 
of BFFRDMB, BFFRDCB, BFFRCIID in 
the buffer prefix. 


zeroes in 


[o4] Buffers that are ‘non reusable’ 


are freed during a purge call. 


Permanent write error buffers 
are not freed until all tasks, 
which either altered the buffer 
or might be interested in it, 


[2] 


because they use the data base, 
have terminated. 


DLZDBHOO ~ PURGE BUFFERS FOR A SPECIFIC USER 
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Routine] Label 


eo ee ae aoe ee ne 


If the buffer is not a 
permanent write error 
buffer, go to step 10 


= . BUFFER 
[07] Delete this user from the ‘ PREFIX 

asia : VIVIVIITITI77 a naeennananamnded 

user mask field in the == -777"--7-7-- tay & | 


buffer prefix. 


HIPOMAT de 1 Diagram — ="1.3.1.7-01 


a ae re ae a ne es a ee ne ne a a eee 


Notes Routine|[ Label Ref 


[07] Before the bit in BFFRUSID, 
which corresponds to the user id 
(in the PPST) of the current 
task, is turned off, a check is 
made whether any tasks are 
active that would share the bit 
with the current task (refer to 
notes of the chart for routine 
BFALT). 


oe op ce See me a 


HIPOMAT 1.1 Diagram - 1.3.1.7-01 


Licensed Material - Property of IBM 














CHART: PGUSR 
PAGE 2 0F 2 
Input Processing Output 
fn so eT pSB am = 
oes oo oe aw am ee an ae o> [08] If BFFRUSID is zero now or 
eka if there are no more 
acaba potential users for this 
ceelas aera a buffer, 
BUFFER A. Mark the buffer empty 
B. Issue RELPAG macro 
Cc. Put the buffer on the No p- 
; 77 >(3] 
bottom of use chain “71s le 
[09] Go to step 11 
DL/I BUFFER .- \ jeeeens 
eens at IN, [10] Write buffer to disk \z7l > / \ 
DATA BASE |-—---—-—-—--——. 7 - VIIITIITTIS/\ 7 ( ) 
Beye ee |. 4\ 
N f 
[22] If this is not the last area reed 
buffer prefix, get the 
next buffer prefix, go to 
step 2 
[22] Exit 
[seeceees 
wraats =i 
wy; 
Vv 
TO DLZDBHOO 
CHART 1.3. 
STEP 3 
DLZDBHOO - PURGE BUFFERS FOR A SPECIFIC USER EL PF a oe oe we = “HIPOMAT 1.1 Diagram - 1.3-1.7-02 
Notes Routine| Label Ref Notes Routine| Label Ref 








[98] A task is a potential user of a 
buffer if at least one of the 
DSG*'s in the PSB has the same 
DMB and ACB number as in BFFRDMB 
and BFFRACB of the buffer 
prefix. 


ea a ot ee ae ar ae ne ne ee a ase ae ae ne ew 


DLZDBHOO - PURGE BUFFERS FOR A SPECIFIC USER 


ee a ee ee SR 


Ae a a a ee ae ae ES A a YS PS Ek A Re J SO a Se 


HIPOMAT 1.1 Diagram - 1.3.1.7-02 
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Input. 


aN i a SY NN SE Se -  y Ve 


FROM DLZDBHO00 


CHARTS 1.3.1.1 


OR 1.3.1.2 





i a Pe te ee ee 





Processing 


a a ae ee sae a eo ae a oa a ay ee a a 


LOCATE: 


[oa] Search a buffer for the 
& requested block 





| | Chart 1.3.1.8.1 
BUFFER PST <-- = . rma) 
PREFIXES = Jf Jaeee---e--= > {02} Check,if the predecessor ---------- prt 
are san gn een mete ose ~~ Gn the write chain is in _ 
the buffer pool and if 
necessary write buffer 
DMB Chart 1.3.1.8.2 
oo nm me > [03] If the block is new, put LIN 
is VIVIIIITFITI7 
the buffer on the write sa caine aad 71> 
chain and mark it as 
altered 
Chart 1.3.1.8.3 
oes “\ Soy L-----——-1\] fou] ze the block is not new 
{ »), ao, [04] ; . rererrerr0777 > 
be | read the block into the "TTT t tte rrrT j 
————- buffer 
\ / 
area Chart 1.3.1.8.4 
DATA BASE 
[05] Exit 
Vv 
TO DLEDEHQO 
CHARTS 1.3.1.1 
en rr ee Se a ee Sa Roe OR 1.3.1.2 
DLZDBH0O - LOCATE 
Notes Routine] Label Ref Notes 


DLZDBHOO - LOCATE 
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ART s ee 


CH 
PAGE 1 OF 


output 








BUFFER 
PREFIXES 


DL/I BUFFER 


HIPOMAT 1-1 Diagram - 1-3-1.8-0 


a me a ee ee a a a a a a a a we a ee eee ae rr ee ca a ye ne ee ee A ee 


HIPOMAT 1.1 Diagram - 1.3.1.8-0 


Input 


Processing 


FROM LOCATE 
CAART i= 3+108 


STEP 
54 


eee] > 


———7 


LOCATE: 


BUFFER 
PREFIXES 


Ss taeeatealeattte > [03] Search thru the buffer 
prefixes for the requested 


data base CI 


If the 
found, 


A. CI was not 


go to step 4 


If the 
pending in the buffer 
pool,eng on this CI. 
After having gotten 
control back, go to 


CI was found as 


step 1 


If the CI was found as 
existing in the buffer 
pool and is not busy, 
go to step 2 


If the CI was found as 
existing in the buffer 
pool and is busy,enqg on 
this CI. After having 
gotten control back go 
to step 1 


{o2] Pass the buffer to the 
requestor 


DLZDBHOO - LOCATE 


en a a a a ne a a ee. 


Routine] Label 


Notes Ref 
[o2] Passing the buffer consists of 

putting the buffer prefix 

address into PSTBUFFA and the 


buffer address into PSTDATA. 


DLZDBHOO ~ LOCATE HIPOMA’ 


Licensed Material 


- Property of IBM 


HART: LOCATE 


c 
PAGE 10F 2 


HIPOMAT 1.1 Diagram - 1.3.1.8.1-01 


T 1.1 Diagram - 1.3.1.8.1-01 
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Processing 


[o3 Exit 


— BUFRER es 7 


Gemeense | 


CHART: 


LOCATE 
PAGE 2 


2 OF 
output 


a ee ee ee ee 


Go on the use chain from 
bottom to top and search 


for a buffer that can be 


SUBPOOL used 
INFORM TABLE 


USE CHAIN } 


If no buffer is 


available,eng on the 
pending CI of the buffer 
being on the bottom of the 


use chain. After having 


gotten control back go to 


step 4 


[06 Exit 


DLZDBHOO ~ LOCATE 


[04] A buffer can be used, if it is 


not marked as "non reusable’ and 
if it is not a permanent write 
error buffer and if it is 
currently not enqueved upon for 


a pending CI. 


DLZDBHOO - LOCATE 
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com 


en ee 


HIPOMAT 1.1 Diagram - 1.3.1.8.1-02 


Routine| Label 


ee ee ee a a a a tn ea we we ce a a re en nn re a a a a ee ee 


HIPOMAT 1.1 Diagram - 1.3.1.8.1-02 
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FROM LOCATE 
CHART 1.3.1.8 
STEP 2 


ne 
e aN 
[hs > 
emcees | 

PST 

an ey IF) 
PSTBLKNM woe] / 
PSTACBNM 

PSTDMBNM 


tot o,.  ee 


[DMBRLBLK | 


ae eee 


BUFFER 
PREFIXES 





DLZDBHOO ~ LOCATE 


Notes 


[oa] This moving in of the cI id 
means enqueuing on a pending CI. 


{o2] This check is made to make sure 
that the CI‘s of the data base 


get initialized in sequence. 


{oa] x'04" is being stored into 
PSTRTCDE. 


[05] A buffer is busy, if it is being 

~~ read into, or being written or 
if it is waiting for its 
predecessor in write chain being 
written. 


i ae a a cn a a a a 


DLZDBHOO - LOCATE 


{01] Move the CI id into the 


Routine] Label Ref 


Processing 


BUFFOUND: 


buffer prefix of the 0 "77" Sce7- |47 , 
buffer that is to be used | 
If the CI, which is being 
processed, is not new, go 
to step 5 
If the predecessor in the 
write chain can be found 
in the buffer pool, go to 
step 5 
Sequence error be 
VIVIIMT7IIT777 1 > 
Sag ana healt diet |7 
Exit 
ees BN 
[oeeet > 
——--3/ 
RETORN TO 
CALLER 


If the buffer is busy,enq 
on this buffer 


If the buffer needs not to 
be written, go to step 8 


CHART: BUFFOUND 
PAGE 1 OF 2 


output 


nr a a ee a a ee ee 


BUFFER 
PREFIX 


a ce ett te mt oa 


HIPOMAT 1.1 Diagram - 1.3.1.8.2-01 


HIPOMAT 1.1 Diagram - 1.3.1.8.2-01 


Licensed Material 


- Property of IBM 33 


Input 


A le A ee Se re 


Processing 


DL/I BUFFER 
pee ase ns aN aE RET 
=== y/ 


[08] Take buffer over 


[09] Exit 


Routine| Label Ref 


[oa] ‘Taking over* a buffer consists DLZDBHOO | BFSWAP 
of moving the CI id from 
BFFRNPST to BFFRPST, turning off 
BFFRPNNQ/turning on BFFREXNQ in 
BFFRSW, putting the buffer on the 
top of the use chain and 
Clearing the buffer with zeroes. 





34 


[07] Write the buffer 


a ee a wa ne i Se an Ne ec See 


CHART: BUFFOUND 
PAGE 2 OF 2 
Output 


a a a a are a ee eee a a a ee 


| oreo o 
{771 > / \ 
VIVITITTT7//\\7 ( ) 
Saha sclaenee \ / 
Ne 
\ / 
: : 
Tagore ts Y DATA BASE 
7\ 0 . Upteeeecioclw el ee ee 
Z BUFFER 
4 PREFIX 
7 
y eee } 
f 


SUBPOOL 
INFORM TABLE 


[use CHAIN 





Notes Routine| Label 


a i a a a nn a a ee | a | eee | 


ae ee a a a a a a ne a a a ee 


HIPOMAT 1.1 Diagram - 1.3.1.8.2-02 
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CHART: TESTNEW1 
- PAGE 10F 2 
Tnput : Processing Output 
FROM LOCATE 
CHART 1.3.1.8 
STEP 3 
e 
° \ TESTNEW1: 
eecee!| > 
/ 
(a]----> Search in buffer pool for 
| ---->[a] the predecessor in the 
| write chain. If it is 
found, go to step 3 
The predecessor cannot be 
found - system abend 
\ ee eepeseetyee een 
eet >| DLZABEND 
ABEND 845 
1.2.1.1 
{a]----> If the predecessor is not 
i being written, go to step 
| | 
| Eng on predecessor 
(a]----> If the predecessor is not 
a permanent write error 
buffer, go to step 7 
Mark the current buffer as \ 
Beason 
a permanent write error a / [2] zz ~ 
buffer. Go to step 9 
Reet eee ate eee Reena aoe ee ree 


DLZDBHOO - LOCATE 





Notes 








| 
1 {o4} The purpose for enqueuing on the 
predecessor is to wait for 





completion of the writing. This 
is necessary to find out if the 
buffer then is a permanent write 
error buffer. 


| 
| 
| 
| 
| 


a i a on ae ne a ae wo ce 


DLZDBHOQ - LOCATE 


Label 











HIPOMAT 1.1 Diagram - 1.3.1.8,.3-01 


Ref Routine| Label Ref 





HIPOMAT 1.1 Diagram - 1.3.1.8.3-01 
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Input Processing Output 


cc ane tiene eats ns stentntninkt nestles emanate 













Put the buffer on the ‘SB 
bottom of the write chain “~|/ 








PPST 
fprstx__[——___——>) Mark buffer as altered SSB] 
“17 
PST 
Put buffer prefix address 777 Ny 
and buffer address into “wee Sse" eec~-= 7 
the PST | 


Exit 


eeneeece 
[eres 3| 
\/ 
TO LOCATE 
CHART 1.3.1.8 
STEP 5 





| 
! 
! 


eee se Seo Sn 


DLZDBHOO ~ LOCATE HIPOMAT 1.1 Diagram - 1.3.1.8.3-02 




















| Notes | Routine} Label Ref Label Ref 
DLZDBHOO - LOCATE HIPOMAT 1.1 Diagram - 1.3.1-8.3-02 
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Input Processing 
FROM LOCATE 
CHBaT t-so2=8 
s 
: ned \ TSSREAD: 
esee| > 
7 
se er Note) [oz] Read the requested CI from-~~—~-——---~--~- 
\ | as Ts the data base jg. | = 
\ / = 
° ° oto cae ene encom tm eno [o2] If no read error occurred, 
DATA BASE go to step 4 
RPL — 
RPLFDBR J | [03] Indicate in the PST, that I 
maf VIIIVIIIITIT7 
ee a I/O error occurred 0 "37" Serereno— 
Exit 
[os] Put the buffer prefix { 
a VIVIVIATITITI 
address and the buffer == ~-"*"---=-" == 
address into the PST 
{os} Exit 
DLZDBHOO - LOCATE ———S™S et ee ty, ia 


Notes 
{03} A return code of x*08* 

(PSTIOERR) is stored into 

PSTRTCDE. 


DLZDBHOO - LOCATE 


Licensed Material 





CHART: ISSREAD 
PAGE 1 OF 1 
output 
ik DL/I BUFFER 
Ci (he ee ] 
PST 
\ ia ia: 
> PSTRTICDE ] 
. PST 
> PSTBUFFA 
‘| PSTDATA 


HIPOMAT 1.1 Diagram - 1.3.1.8.4-01 


Routine} Label Ref 


nr ae a ee ne ea ee oe a na ae a a a ce a a 
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CHART: DLZRDBLO 
1 OF 1 


: PAGE 
Input Processing Output 
e 
Shoag DLZRDBLO: 
seco! > 
any / 


What function is 
requested? (note 5) 


03] Build a log record and 
move it to the log I/O 
area (chart 1.4.1.1) 


[o2} Move a log record, which 
has been built by another 
module, to the log I/0 
area (chart 1.4.1.2) 


[03] Write log information 
- physically to tape (chart 
1.4.1.3) 


{o4] Exit 





Vv 
RETURN TO 
CALLER 


a it Lg ym ta en gm tt eee a ie A ee ee he ee ent Sa it mae te a a re sa te a en ye he 


DLZRDBLO - LOG MODULE HIPOMAT 1-1 Diagram - 1.4.1-01 


nits a te a ah 0 A a A I I A Ne Se el ee A i ec ey ep a ee ie ca ee a en ke gh en te ee ee ee. 


Notes Routine| Label Ref Notes Routine] Label Ref 


eA 0 a i Ae i i ee ae ame en ne nt Yee tn engrish ty ee meme ee Yeeeah at mm en ee ee a ce ne ey ee en cnc | eae eee cee | ee we cee mre ne ne ate 


[oz] DLZRDBLO} DLZIDBLO 


[oz] This applies to scheduling and  |DLZRDBLO|LOGWR 
termination log records built by 
the scheduling resp. termination 
routine. 


{03} This function is used by DLZRDBLO | WRIAHEAD 
DLZDBHO0, when log information 
associated with a data base 
update has not yet been written 
to tape at the time the data 
base update is being done . 


[05] The three different functions of 
this module are associated with 
three different entry points 
into it. 


in a a i a ne eae re er rate Se ine a lt oa De ee wa ew cae es ce ame pa ec se se a Sa he a a ki a a en a a a a a sn a 


DLZRDBLO - LOG MODULE HIPOMAT 1.1 Diagram - 1.4.1-01 
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CHART: DLZIDBLO 
‘ PAGE 1 OF 2 
Input Processing Output 
FROM DLZRDBLO Scan a ERT 
CHART 1.4.1 


STEP 1 


cl 
et-i\ DLZIDBLO: 


eoce} > 














Vv {o2] Build the log record 
=a Stew ee ere weno ne > A. ete the kind of log 
-~-------- ca 
ee at SS —-4\ Seta oe, 
weer ene > B. Move header informat ion--~-------J5—-,/ 
“pst. ~~ ~~ DSG into workarea i eg 
PS Slee parte sSsaea> C. Move data into workarea----------J] {| | aa 
DSGINDA [tp ff a a at LOG_WORK 
DATA | | ma SSS ==> D. If data does not all . 
DSGDMBNO fit into record ,move 
DSGACBNO as much data as 
ne possible into the log 
DMB <= record 
ee er DCBLRECL 
DMBDL {o2] Move date and time into --~---~---- 
SAREE DMBPRSZ log record 
Beers Nes Ree : 
{03} Move the log record to the 
scD I/O area 
[eee A. If log record will not 
~~ fit into I/O AREA go to 
ge ee etait eS step 5 
gel swesees yo aI \ pata Sah ise 
Ge ty becomes) B. Move the log record =n------F 
into I/O AREA 
LOG, WORK [os] Go to step 6 IOAREA 
DLZRDBLO ~ LOG RECORD MOVING OE Ee ee eee “HIPOMAT 1.1 Diagram - 1.4.1.1-01 
Notes Routine] Label Ref Notes Routine| Label Ref 
[02] Dependant on the kind of DL/I 
call which is being processed, 
the logger builds a log record 
of one of the following types : 
Physical insert record 
physical replace record 
physical delete record 
logical delete record pointer 
maintenance record 
The maximum logical recordsize 
for a log record is 512. The 
blocks are undefined with a 
maximum Of 1024 bytes. 
DLZRDBLO - LOG RECORD MOVING ——~—~CS~—‘“—SSSOSOS”S”O”””O I GTPOMAT 1-1 Diagram - 1-4.1.1-01 
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CHART: DLZIDBLO 
E 2 0F 2 


. PAG! 
Input Processing Output 
os A en < seaned’S, 7". 
——-l-—-———) [05] Write the contents of the —--------- Ty/ / \ 
q I/O AREA to tape j j 
Ae secs eens \ / 
IOAREA Pars 
LOG TAPE 


A. If logging is being 
done in a batch 
environment, issue the 
PUT immediately 


B. If logging is being 
done in an online 
environment, give 
control to the 
asynchronous log 
subtask (chart 


1.4.1.11) 
scD —_ BUFFER 
ann ny nn) 06] If the log request is PREFIX 
se | ~ associated with a buffer, “°°""*">" (74 tSS [BFFRLOCO ] 
’ oe. i 7 ree ss 
move the number of the 
last written log block 
from SCDLOCOU into the 
buffer prefix 
[07] If more data is to be 
logged, go to step 1C 
[os] exit 
Prrrrrrrs 
== 
es 
pA eee 
DLZRDBLO - LOG RECORD MOVING “HIPOMAT 1.1 Diagram - 1-4.1.1-02 
Notes Routine| Label Ref Notes Routine| Label Ref 
(=) 
B. The PUT is issued in an 
online environment from an 
asynchronously running 
subtask in order to avoid 
loosing tasks when EOV is 
encountered on the log tape. 
Refer to chart 1.4.1.11 for a 
description of this 
asynchronous log subtask. 
[06] The purpose for keeping the 
number of the last written log 
block in ths SCD and in the 
buffer prefix is to enable 
DLZDBHOO to determine, whether a 
log buffer has to be written out 
before an update is applied to a 
data base. 
{o7] This happens, if the data to be 
logged doesn't fit into one log 
record. Refer to step 1 D. 
Serene a IN ne a er a en ed 
DLZRDBLO ~ LOG RECORD MOVING HIPOMAT 1.1 Diagram - 1.4%.1.1-02 


uO Licensed Material - Property of IBM 


CHART: ONLINT 
; PAGE 10F 1 
Input Processing Output 


FROM DLZIDBLO. |" ~*~ 
CHART 1.4.1.1 
STEP 5 


[Las ONLINT: 


eses| > 












NEEDS. oe iebec ee [03] Lock the SYSTEM ECB Ne \ Pes les 
[sesesece}-—-)>[E] [2] zzt>[e[F]zz{ >| (SebeseCa 
ape [02] Unpost the PRIVATE ECB \\ rer tIo7t EReyere Eee 
[privecs i al[a}-—a7j b= zt [al [alzzt>) — [Paivece__) 
Pee etal dN gs eae dN [03] Post the LOG I/O ECB IS 51 felo7t eae 
[sepeuece }-—-.[e] [c]—7] -— de 1 | ea eg i bs 
e ena Starve s ea Seul > [ou] Issue IWAIT on PRIVATE ECB 
LOG I/O AREA \ oe 
ee - Issue PUT iz7t > / N 
{ --—--— AMA AAAAEAALA NTA : ; 
aS Tr | \ | 
Ne 
fa an ) {o6] Post the PRIVATE ECB zz7\s [5] aes 
(E => {07] Unpost LOG 1/0 ECB de 
Be a-p/7oke 


[08] Go into WAIT again on LOG 








I/O ECB 
—y———1\ [09] Post the SYSTEM ECB Its 
qe z\> fal 
{20] Exit 
Vv 
TO DLZIDBLO 
1.4.1.1 STEP 6 
DLZRDBLO ~- ISSUING PUT FROM THE ASYNCHRONOUS LOG SUBTASK HIPOMAT 1.1 Diagram - 1.4.1.11-01 
Notes Routine| Label Ref Notes Routine] Label Ref 
Gee et rene agp ot Tee eS TE that. the DL/I *maintask’ will be | | | 
[02] The SYSTEM ECB is used for : : 
= A put into wait. The asynchronous 
communication between DLZRDBLO a" 
log write subtask can then be 
and the DL/I ONLINE NUCLEUS. It 
. 7 started by DOS. 
is locked in order to prevent 
any other task from entering the 
‘ ; . The steps 1,2,3,4,9 are DLZRDBLO | ONLINT 
logger while the 1/0 is going aay 
performed within csect 
on. 
DLZRDBLO. 
fo2] The PRIVATE ECB, which is The steps 5,6,7,8 are DLZRDBLO | ONLLOGWR 
~" defined in the asynchronous performed within the 
logwriter subtask (Csect asynchronous log writer 
ONLLOGWR), is used for subtask. 
communication between the 
asynchr. log subtask and 
DLZRDBLO about the completion of 
the I/0. 
[03] The LOG I/O ECB is used for 
communication between DLZRDBLO 
and the asynchronous log subtask 
about the necessity to issue a 
PUT. The asynchronous log 
subtask is waiting on this ECB 
and when it gets posted, DOS 
will mark this subtask as 
dispatchable. 
[o¥] This IWAIT will have the effect, 
DLZRDBLO - ISSUING PUT FROM THE ASYNCHRONOUS LOG SUBTASK ~~~”. HPOMAT 1.1 Diagram - 1.4.1.11-01 
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CHART: LOGWR 
: PAGE 1 0F 1 
Input Processing Output 
wy ey Oe PA FROM DLZRDBLO pee ge pe ey Oy a oe Pa a 
CHART 1.4.1 


eee) > 


eras | 


[ilo LoswR: 








ae eo oF LOG I/O AREA x 
[eonsrze ween nnn > [or] If the log record fits 
pl enon a inf ~~ into the space currently 
available in the I/O AREA, 
LOG RECORD " : 3 
a — Oo to ste 
[DLENGTH ] 7 c 
jo Sp i a ee a a a ae ce pe nie ate ——. \ 77. 
eed [02] Write the current contents i77t > / \ 
LOG I/O AREA if See 7 f Some VIVITITTTTIA NS : . 
ae = { of the LOG I/O AREA to the----“""4554* | 
Ee log tape N / 
LOG WORK = LOG TAPE 
AREA | Aa 4\ [03] Move the log record to the 
~~~ 1 -—~ J p——-——--— - VIVIVIIV77777 
LOG RECORD] -—-—J — LOG I/O AREA Sen ;| re LOG I/O AREA 
aHt’> [ } 
——: ical ae led 
[o4] Exit 
Vv 
TO DLZRDBLO 
CHART 1.4.1 
STEP 4 
DLZRDBLO - LOG RECORD MOVING a a “HIPOMAT 1.1 Diagram - 1-4-1.2-01 
Notes Routine{ Label Ref Notes Routine] Label. Ref 
~phis function is used for. | ates ara aerial ne eae Re as ae 
open log records ID X‘2F', 
for scheduling records ID 
X*08" and for termination 
records ID x‘07*. 
DLZRDBLO - LOG RECORD MOVING ~~ —~—~CS<7;«7;73;3}XETCé<S;7T TT  AEBOMAT 1.1 Diagram - 1-4.1.2-01 
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CHART: WRIAHEAD 
Foi 





3 PAGE 10 
Input Processing Output 
ee ee eee is or psp ta ag naa earn ea eet nas ee eee Se at 
CHART 1.4.1 
STEP 3 


cece] > 


————y 


e 
[zk WRIAHEAD: 


LOG I/O AREA 





iat 2 . aa 
am ey enn nN {02} Issue PUT to write current \771 > / \ 
[ }-——----——" = TVIVITITITIT 41 ; . 
sala aa aati or contents of the log [/Q 9 "TTT Tr rm nnn | | 
area to the log tape N / 
_ 7 LOG TAPE 
[02] Exit 
[seceeeee 
ao 7} e 
‘Ny 
Vv 
TO DLZRDBLO 
CHART 1.4.1 
DLZRDBLO - FORCE WRITE ROUTINE eee ee eS “HIPOMAT 1-1 Diagram - 1.4.1. 3-01 
Notes Routine! Label Ref Notes Routine] Label Ref 
DLZRDBLO - FORCE WRITE ROUTINE = = = | ~~~~—~<CS;7;7;3 }XRW)tCé<CS;t EROMAT 121 Diagram — 1.4.1. 3-01 
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CHART: DLZRDBL1 
. PAGE 1 0F 1 
Input Processing Output 


ee i a te a en a ee i a ee ee ee a ee ee a a a ee a Ne a a on etn ae 


FROM CALLER 


a ae 





‘\ DLZRDBL1: 
seee| > 
———7/ 
What function is 
requested? (note 6) 
{7} Build a log record and 
move it to the CICS 
journaling buffer (chart 
1.4.2.1) 
[o2] Build open log record(s) 
~ and move it (them) to the 
cIcs journaling buffer 
(chart 1.4.2.2) 
[03] Move a log record, which 
has been built by another 
module, to the CICS journ. 
buffer (chart 1.4.2.3) 
[oa] Write journal information 
physically to tape (chart 
1.4.2.8) 
[o5} Exit 
Vv 
RETURN TO 
CALLER 
DLZRDBL1 - LOG MODULE USING CICS JOURNALING =~ sot ~— ~"HIPOMAT 1-1 Diagram ~ 1-4%.2-01 
Notes Routine! Label Ref Notes Routine} Label Ref 
{o1] DLZRDBL1 | DLZIDBLO 
[oz] Since the CICS journal tape is }|DLZRDBL1)OPLOG 
not yet open at DL/I 
initialization time,the open log 
record(s) are built and moved 
before the first scheduling call 
is logged. 
[03] This applies to scheduling and DLZRDBL1 | WRITEEXT 
~™ termination log records built by 
the scheduling resp. termination 
routine. 
{ou} This function is used by DLZRDBL1 | WRIAHEAD 
DLZDBHO0, when Log information 
associated with a data base 
update has not yet been written 
to tape at the time the data 
base update is being done . 
[06] The four different functions of 
~~ this module are associated with 
four different entry points into 
it. 
DLZRDBL1 - LOG MODULE USING CICS JOURNALING ~~ ~~~ ~~—~——~S—~<;73XETTCté<S;7T ~~" HIPOMAT 1.1 Diagram - 1.4.2-01 


Ky Licensed Material - Property of IBM 





“| FROM DLZRDBL1 
CHART 
STEP 


CHART: DLZIDBLO 
. PAGE 1 O0F 2 
Processing 


Output 


1 
1 
“1 
eld DLZIDBLO: 


ecco! > 
/ 


eee h cc | Hee rk ae perrcecoaes | 
PSTBYTNM [SCBPRESF 
PSTBLKNM ~ || peaemennnann > [02] Build the log record I 7 oe 
coe = VIVIVITITTTIT 
PSTDATA DSG | Sanatatanaiamaetatatal I EA 
PSTOFFST { ]--- 
PSTWRK1-4 
DMB = CICS JOURNAL 
ee nany | pe awd {o2] Get the log record moved --~-~—----~-~ FFER 
DL/I_OR VSAM [ } ee Z| ban, SS, meee emacs Losiu | “GessS See 
BUFFER (—— ban — to the CICS journal buffer ley7 
[03] If physical 1/70 is not 
Pan ae ka en, —— necessa o to step 10 
LOG WORK ]--—— ee X 
AREA 
s scD 
scD ne eS [ow] Lock SYSTEM ECB | tecpezce" 
pee ae Ne fst VIVITITTITTIT > [ScDESECB 
[ScDEsEcB |---- aaeeeiatnanatar i ee 
[os] Issue DFHJC TYPE=WRITE 
~ again 
[06] If no I/O error occurred, 
go to step 8 
[07] Log I/O error - system 
~~ abend 
eSSdN ee See 
[-1> DLZABEND 
1” JABEND 264 = 
1.2.1.1 
DLZRDBL1 - LOG RECORD BUILDING AND MOVING Ree wah ane eter dg oy ade “HIPOMAT 1.1 Diagram - 1-4-2-1-01 
Notes Routine] Label Ref Notes Routine] Label Ret 


[02] A DFHJC TYPE=(WRITE,DL/1) is 
issued. 


[04] The sysTEM ECB is locked in 

~~ order to prevent any other task 
from entering the logger while 
the I/0 is going on. 


ee i es a a te a a a a a a a a ee a oa a 


DLZRDBL1 ~- LOG RECORD BUILDING AND MOVING 


DLZRDBL1 j IONEC1 


HIPOMAT 1.1 Diagram - 1.4.2.1-01 
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CHART: PEZIDRLS 





; PAGE 2 0 2 
Input Processing Output 
scT scpD 
betedienen snare -—-----—-—--—"') [oa] Get the new number of the 1. Sasa 
[scTBLKN™ ]-—----=— 7 VITITTTTTTTITN > [scpLocou } 
Pe last written journal block™<""-"*"77-"~ |7 +o 
from the JcCT 
[09] Post the SYSTEM ECB 
[29] If the log request was not 
associated with a buffer, 
go to step 12 
scpD BUFFER 
 aedeaetretprptacaanen SAL TRAC AOSES SRY 11] Store the block number of PREFIX 
[ScbLocou wane ny / | Le : ELALALALAAA AAS asglestoe ven 
oe ene — the last journal buffer Si eee g ] 
written to tape into the 
buffer prefix 
(22] If the data to be logged 
didn*t fit into one log 
record, go to step 1 
[73] exie 
Vv 
TO DLZRDBL1 
CHART 1.4.2 
STEP 5 
DLZRDBL1 - LOG RECORD BUILDING AND MOVING ih anaes “HIPOMAT 1-1 Diagram - 1.4.2.1-02 
Notes Routine| Label Ref Notes Routine| Label Ref 
[08} The purpose for keeping the CICS |DLZRDBL1!|GETECN 
event control number is to 
enable DLZDBHOO to determine, 
whether a log buffer has to be 
written before an update is 
applied to a data base. 
{21) The number is stored into 
BFFRLOCO. 
a a lad Coe aS SIS || ORESRRROE RM Ae OI ee Raa eS TY ROR ARES RON Ae Oa 
DLZRDBL1 - LOG RECORD BUILDING AND MOVING HIPOMAT 1.1 Diagram - 1.4.2.1-02 
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CHART: OPLOG 
5 PAGE 1 0F 1 
Input Processing Output 


FROM DLZRDBL1 
CHART 1.4. 


[las OPLOG: 


esee} > 





7 
DDIR 3 
eae — [oa] Locate the first DDIR 
(a> 
+--+ —_ entry 
— 02] If the data base was not 
al] 
- opened, go to step 5 
sae one [03] Build th 1 a 
~~ 9 — ui e open log recor = 
DMB eee eee aay / ie : srrreerrvvivt > LOG WORK 
—<-==—s == for the data base ST ea er ress = [7 
ACB EXT ee ctl) ORS aw Sie be eae 
---------— referenced by this DDIR 
entry 
[o4] Move it to CICS journaling 
buffer 
[a] % [05] If this is not the last 
DDIR entry, get the next 
DDIR entry and go to step 
2 
[os] Exit 
seecccce 
27] 
NT 
Vv 
TO DLZRDBL1 
CHART 1.4.2 
STEP 5 
DLZRDBL1 - BUILD AND MOVE OPEN LOG RECORDS Se oe ee ea pe ee HIPOMAT 1.1 Diagram - 1.4.2. 2-01 
Notes Routine] Label Ref Notes Routine} Label Ref 
[02] A data base might not have been 
opened because of the 
OPEN=DEFERRED option or because 
of an open error. 
[ou] Refer to chart DLZIDBLO 1.4.2.1 
a step 2 to step 9 
DLZRDBL1 - BUILD AND MOVE OPEN LOG RECORDS = =~ = = ~~ ~~~~—~”~<CS;<ST;«7;«SC;«SCSt*<C<S*‘ié<‘<;C;*;” Sz 101 Ddagram — 1.4.2. 2-01 
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CHART: WRITEEXT 
: PAGE 1 0F 1 
Input Processing . Output 


FROM DLZRDBL1L 
CHART 1.4.2 
STEP 3 


° 
[iL Nv WRITEEXT: 


esee| > 








———=_/ 
= - CICS JOURNAL 
oo ee dN 01] Get the prebuilt log BUFFER 
LOG WORK }|-------~--—--~— 47) ee . : _a- a 
AREA record moved to the CICS { 1 
= journal buffer aad 
[02] Exit 
Vv 
TO DLZRDBL1 
CHART 1.4. 

DLZRDBL1 ~ MOVING PREBUILT LOG RECORDS | HIPOMAT 1.1 Diagram - 1.4.2. 3-01 
Notes Routine] Label Ref Notes Routine! Label Ref 
[or] Refer to DLZRDBL1 chart 1.4.2 

step 2 - step 9. 
DLZRDBL1 - MOVING PREBUILT LOG RECORDS = = —~—~~—~~~”~—~CS;«T«7«7;3 }XKTSC<CS*t:t HIPOMAT 1-1 Diagram - 1.4.2.3-01 
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CHART: WRIAHEAD 
: PAGE 1 OF 1 
Input Processing Output 


FROM DLZRDBL1 
CHART 


° 
Lay WRIAHEAD: 








sece| 
—--=-;/ 
ScD ae JCA 
(Seotoco0 ae ened \ 01} Store the block number of Pe facancn] 
an VIVVIVITVIT777 
om ae — the block that is going toc ttc 7K mtr] ——— 
be written in the JCA 
scD — scD 
Ba A [o2} Lock the SYSTEM ECB SG RR reer 
SCDESECB _]-—--- ay | LOE TECTIITTTIVTT | > SCDESECB | 
s | 1 Praca 
Sate Sr SE a me IN [03] Issue DFHIC \77t > oN 
CICS. eee eee ee, m—y/ {be VIVATITITTIA/\\7 A = 
Pe ea TYPE=(WAIT,DL/I) to get 99-7777 TAT tT | } 
= aon en ame current contents of CICS N / 
journal buffer written to Sues 
tape 
Jct — scD 
(Seranenn ay en CEASED [ou Get the block number of { e (ScpLocou 
eee oe Say spe VIVTVTTTIITIT | 
a a ce a 4 the last written journal “7777-779 "- "47 won 
block from the JCT 
scbD — scD 
a = \\ {os} Post the SYSTEM ECB |S ieee 
SCDESECB ]zzzz77777 7777 >plee VIVTTITTTITTITT > [ScDESECB } 
=== a laetanatateietaieiananel VA asain a areca ne (7 nae 
[06] Exit 
Vv 
TO DLZRDBL1 
CHART 1.46.2 
STEP 5 
DLZRDBL1 - LOG WRITING ee ee ee “HIPOMAT 1.1 Diagram - 1.4.2.4-01 
Notes Routine] Label Ref Notes Routine] Label Ref 
for} Refer to note on step 8 of chart 
DLZIDBLO 1.4.2.1 . 
{02} Refer to the note on step 4 in 
chart DLZIDBLO 1.4.2.1 . 
DLZRDBL1 — LOG WRITING RIPOMAT 101 Diagram - 124.2.4-01 
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CHART: PLEOLS 00 





. PAGE 1 OF 
Input Processing Output 
iz Ta, ah Oe OP ee ern e oa PROM CICS/VS Pose ee RF ae hoa. pete ee sh a See 
OVERLA. 
SUPERVISOR 
s 
: lend N DLZOLI0O: 
wade Os 
“"SIPCOM | DFHCSA ‘| 3 - ce : DLZNUCNN 
oo we en ee eee eIN {or} Initialize Online Control] --~--~---—~-—--4\ ee 
—--—- — y/ — . wore away / 
nr a2 | Information Se aetateeeeateteeneeeal 
ae Oa RA MOREE PRE CE Chart 1.5.1.1 ep So 





Chart 1.5.1.2 ———,/ 


DOS/VS CIL 





fee ee 7 “DLZPDIR.~+PSB'S 

yer = 02] Load PSB and Convert PSB +--~--~--~- enemy p= 

\ 7 | > L Segment Intent List | | a | es amiss aa | 

Py A wed\ scat ee tS bat Se 
/ 





—- [03] Build DMB Directory. Load --~-~-—-~—~—- 
ae . and Initialize DMB‘s l 
a BN 





Chart 1.5.1.3 





DLZNUC a Oe —----—~---- 
meng Hn nena => [ou] Allocate Buffer Control —---~------ BUFFER DLZNUC 
—— one CONTROL oo 
wee wen — Blocks and Buffer Pools ned | 
res zz Chart 1.5.1.4 ——4\ |---| potent 
ay / obits arent 

BUFFER POOLS 
DLZSCD sa : 
= 2 05] Load Action Modules and Seen ad 
|--—--- q Initialize Data Base SS eteeteie 


——— = Logger ae te aa en a ee a a te ee 
DLZScD ACTION 
ee MODULES 
Chart 1.5.1.5 —-4 ‘ — 
seas |--—-——- | 


DFHSIDL - DL/I DOS/VS ONLINE INITIALIZATION Pp PER g nee Oe gate sa ~~ HIPOMAT 1.1 Diagram —- 1-5.1-01 
Notes Routine] Label Ref Notes Routine} Label Ref 





ae a Se mee an a St i a yy a A A A a a a a a a i a a a a a A a Ae 


DFHSIDL - DL/I DOS/VS ONLINE INITIALIZATION ‘ HIPOMAT 1.1 Diagram - 1.5.1-01 
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CHART: DLZOLI00 
- PAGE 2 OF 2 
Input Processing Output 


ae a pS GO SO ———— 





oa re a a a re me. ee A a a A A em 


aoe ae ae a te re a ey PP Ye 


DLZPDIR DLZSCD 
[-— ia anti [-— Sor rr ee => [06] Move and Relocate PSB*S 





Se a ee YS 


DLZDDIR DLZDDIR 277 


| ween enn -- > [07] Open Data Bases wenn ff pene — / \ 
pees a ee 


N / 
Chart 1.5.1.7 “es 


DATA BASE 
LOG 


Ries eres Chart 1.5.1.6 Po REINER A en ETE 





[08] Return to CICS/VS SIP 
Overlay Supervisor 
Vv 
RETURN TO 
CICS/VS SIP 


DFHSIDL ~ DL/I DOS/VS ONLINE INITIALIZATION HIPOMAT 1.1 Diagram - 1.5.1-02 


Ee A a A Ee SD A A SES SS A Sy ee ee a SO SEE Sa Et ct Ae a oo ct a a A ly NR a YD 


Notes Routine] Label Ref Notes Routine] Label Ref 


a en a me ee a ae ee ce ee ence ee ae ee me ee eee eee | apenas | epee eman mn | een na a a ne eo te ee re ae rn ce ee eee ee eerie | nen ene | ee eee | eee 


oe ee ee ani a ae nt a a a A eS a a eS aR cee cee ce cea ace a se rc BA ce we ww cc vc a a I RE ec 


DFHSIDL - “PL/I DOS/VS ONLINE INITIALIZATION HIPOMAT 1.1 Diagram - 1.5. 1-02 
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CHART: DLIOLIOO 
E 10F i 








: PAG 
Input Processing Output 
FROMDLZOLIOO:.|, es SEE ene eae 
CHAR’ oe 
e 
etij\ DLIOLIOO: 
sese| > 
——-=1/ 
DFHCSA —— . a) 
aac ee —— cea RREL {o2] Establish Addressability 
Saat be to CICS/VS Control Blocks 
CSAOPFLA 
= . CSAOPFL 
[02] Locate Online Nucleus. i ae en 
eet tetera 7 ne eer 
CSADLI 
7 
ata sateek ( eseeeeeereeen 3 
CSADLI DOS/VS 
aoe COMREG (wea a en ee nn nee e enn 
eae us DOS/VS DLZSCD 
t_.--~-..—- COMREG —— pewwwn ee nne 
UPSI [03] Initialize scD 
poeeeten ne ee _— VIVIVITVTTTTT Henne een m SCDDATE 
Po EP / PRHEP [| | ennn~--~-- 
os a 7 is won SCDIWAIT 
Miewiead SoS oe 7 > es eee icici 
22+ - + ~-]/ t-.----——. —— SCDERRMS 
DFHCSA DFHPPT 0 fp et a 
CSAPPTBA PPTLR 1 
/ 7 |perpr ||| ;----------- > [04] Scan and Initialize ACT 4 
ae a fs — _ TIVTTITITITTT | | Ncw ee ee ee am 
] and CICS/VS PPT 000 ttt ttt Jl.  geeeteetee ee See Se 
ee | . A DLZACT 
Aly 3 
DLZSCD “7/1 > wewmmrmmeeem | | mma enmewwer 
ese eth. --|/ 
sea | 
ee te wocccces 
peso eee, Sag HI 
N 7 
Vv 
TO DLZOLIOO 
CHART 1.5.1 
STEP 2 
DFHSIDL — INITIALIZE ONLINE CONTROL INFORMATION  —S—~CSC;«7;7;7;7;<; “HIPOMAT 1.1 Diagram - 1-5,1.1-01 
Notes Routine} Label Ref Notes Routine! Label Ref 
01] Upon entry from the CICS/VS DLIOLIO0 [ou] Indicators are set in the ACTCKLUP 
Overlay Supervisor, SIPBAR2 CICS/VS PPT marking the program 
contains the overlay entry eligible for DL/I services. They 
point, SIPBAR1 contains SIP are set in the DL/I ACT entry 
Common Communications Area. The indicating the program was 
current storage allocation located in the PPT. 
information is saved in order to 
release storage if DL/I 
initialization fails. 
[o2] The DL/I System Contents 
Directory is located from the 
CSA Optional Features List 
(CSAOPFL) field CSADLI. CSADLI 
is modified to point to the 
table of entry points for the 
Task & System Scheduling and 
Termination routines (DFHDLIAL). 
{o3} SCDSIND is initialized with bits NUCFOUND 


6&7 of the UPSI switch from the 
COMREG. The Program Request 
Handler entry point is moved to 
byte 16 of the Comreg and 
temporary entry points are 
established for the Error 
Message Routine and the DL/I 
Wait Routine. 
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ec me a ae oa Se A cn ne Se a a eS 


HIPOMAT 1,1 Diagram - 1.5.1.1~-01 
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CHART: RREMOED 








: PAGE 1 OF 
Input Processing Output 
FROM{DLZOLIO0 |p Re SET ESE 
CHART 1.5.1 
STEP 2 
s| 
old PSBLOAD: 
seco] > 
——=4 
DLZSCD = “DLZPPST | ~+~+=DLZPST 
eencaeneaG Setees Sense [02] Build dummy PST and PPsT eee Sateen renee 
= LAAEAALALA/G [Prstca ] PSTPREAD 
SCDCWRK 7 | a Zo BO ee 
paint aera 7 ( eceeanter ener cent 3 ote ee 
/ / PSTSV1 
Lie eS 4 oe ee ee 
7 x DLZSCD PSTSV2 
4 Od 0 ee ee --------+-- 
~-|/ PSTSV3 
SCDCWRK PSTSV4. 
, eee 7 (PsTsv5 
{ eee a GE cee 
PSTSV6 
PSTSV7__ 
DLZNUC — ie is 
eng Fr re nna > {o2 Load PSB"S and Initialize 
aTeo tena PDIR: © 2. FST SRSES ST / 
DLZPDIR 4 0 meen nee onsen we 
Wake ae og, band Sk a a at / ws 
basses 4 <_]ee| >/INITLODR 4 = 
tea) | --=-~ === -=------- 7 
Module Load Aree | en 
Routine 4 > 
1.5.1.8 ae PSB's 
DLZPDIR DLZSCD 
DFHSIDL - LOAD PSB AND CONVERT PSIL ae fay a pa ew ee ees HIPOMAT 1.1 Diagram - 1.5.1. 2-01 
Notes Routine] Label Ref Notes Routine] Label Ref 
{o2] The PST and PPST are built PSBLOAD 
= directly after the 
initialization overlay high 
storage address. The save areas 
are chained and SCDCWRK is 
updated to indicate the new 
upward core allocation starting 
address. 
[02] The PDIR address is located in PSBILUP 
the SCD and each PSB is loaded 
temporarily, directly behind the 
dummy PST. If PSB initialization 
is successful, it will be moved 
up prior to completion of 
initialization. 
DFHSIDL - LOAD PSR AND CONVERT PSIL Pee a Ge rE uu ee pS eee gh HIPOMAT 1.1 Diagram - 1.5.1.2-01 
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DLZPSB 7 
fapelhae ene eee ee eee and [03 Test 


oe 7] 


CHART: PSBLOAD 
. PAGE 2 0F 2 
Processing Output 
“DEZPDIR | ~~=DLZSCD. 


PSB'S for validity 


 sdantentpeneeaimntentmnantend and update intent. © Serra cstte 7 } cadenashnenentiamnantnstinat i. ~ ae cee an om 
DBPCB 4/7 Pe PDIRCODE SCDSIND 
JCB PDIROPTC 4 4 
SDB 7 
atic en be 4 
7 pe ete ee ee 
| ene | 


DLZPSB DLZPSIL _ DLZSCD DLZPSIL 
nny pm nny | por > [0+] Convert PSB Segment Intent. --------—  enaentemtaeteaneatentant 
som VAIVIVIVIT77 
--++-+---- ~-----+--— List i —( COCO§HHEER TK R TK 2 ee | ee +--+ -- += 
DSGDMBNO 4 SCDCWRK 
Reece? ave 7 ie ta oacats oP PhestNS -eaeoa meee eee 7 ieee aie ears 
baa 4 <_ |ee| >] GETCORE 4 bs L_--—---——+— 4 
DLZPDIR foes | ------- - -- ----- 471 > 
crear nei — Storage Aquisition —"|7 
Routine DLZPSB 
wee ee — 0.0.0 ee 
hc ale ee DSGDMBNO 
| ee ee 4 
eek 3 
Perrrrrri 
viee3] 
V7 
Vv 
TO DLZOLI00O 
CHART 0.0.0 
STEP 3 
DFHSIDL - LOAD PSB AND CONVERT PSIL = 2 2. Eee ups ee “HIPOMAT 1.1 Diagram - 1.5.1. 2-02 
Notes Routine] Label Ref Notes Routine} Label Ref 


{03} Each PSB is tested for correct 
processing options. Indicators 
are switched in the 
corressponding PDIR entry to 
indicate validity. 


For each valid PSB the Segment 


— 
io 
ie 


Intent List is removed, 
translated to indicate read only 
conflict areas, and moved to the 
next available area via CICS 
GETMAIN. 


ae A A a A A eS A A NE 
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a a a a se er ee a A ca A er ee SO ee ce ew 


HIPOMAT 1.1 Diagram - 1.5.1.2-02 


of IBM 











m PAGE 1 OF 
Input Processing Output 
From puzoti0oo f ee 
CHART 1.5.1 
STEP 3 
| 
el_41\ } DDIRINIT: 
econ! > 
————4/ 
~DLZPDIR  DLZPSIL = ; : “"DLZPDIR. ~~ DLZDDIR 
nnn pe f | p--- ---- > 01] Build DMB Directory a a 
= LAALAALALAMS DDIRSYM 
PDIROPTC 4 PDIROPTC . 
PDIRSILA teIN pea 7 2 ert 
~-- ~~~ < [ee] >/GETCORE 4 ; ---------— ee eee 
oo eg wal Storage Aquisition 7 [\ ——--—-— =. 
Routine 441 > DLZSCD 
fete a 1.5.1.9 ae anew ood 
mean DLZPSIL 
DLZDDIR PSILDMBN SCDDLIDM 
DDIRSYM SCDDLIDN 
[o2] Relocate DMB'S 
Plans Goansse ata 
< [ee] >] DMBLOADR 
or Build associated [| | qf Jd beamed lb. 
DMB control blocks 
—-4\ RANDOMIZERS DMB's 
1.5.1.10 ---1 
ad, ; EXLST's RPL's 
[ anny rere > [03] Adjust DMB offsets | a 
od VIVTVATAATT7 
a, cs Sere 7 Risen ere eters 
[ | art’ [ 
esi en ~"| are 
- Perrerrri 1 
ya me 32 
DMB'S 4 Sos wh IS 
TO DLZOLIOO DMB‘s 
CHART 1.5. 
STEP 4 
DFHSIDL - BUILD DDIR, LOAD & INITIALIZE DMBS ak G a enene Gio Wein Ae aaa eee “HIPOMAT 1.1 Diagram ~ 1-5-1-3-01 
Notes Routinej Label Ref Notes Routine| Label Ref 


[o7] The PSIL"s are scanned for DMB 
~ names and an entry in the DDIR 





DDIRINIT 


is created for each unique DMB 
encountered. The address of the 
DDIR replaces the respective 
DMBNAME in each PSIL. 


DFHSIDL - BUILD DDIR, LOAD & INITIALIZEDMBS 
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Input 


FROM DLZOLIO0 
CHART 1.5.1 









DLZPST 


DLZSCD | 


eee > 


PSTHK3 SCDDBFPL 


DL2SCD 





DLZPST 








SCDDBFPL 
f 


+ 


PSTWRK3 






DLZBFPL DLZDMB 
SUBINFTA DMBRBASN 
4 vA 


ALLOCATE BUFFER CONTROL BLOCKS AND POOLS 


Notes Routine 
Zero buffer situation may occur 

if simple HISAM is the only 

access method specified. 


Buffer allocation is done by a 
subroutine. The required number 
is set to the user specified 
amount if the user number is 
smaller than required. 


At this point the size of the 
subpools are determined. They 
are allocated, largest first, 
until the specified number is 
exausted. Remaining DMB*s 
requiring subpools are assigned 
evenly across all existing 
subpools. If the user specified 
More subpools than neccessary an 
additional pool, of 512 buffer 
size, is allocated for delete 
workspace. 


A. The subpool sizes are sorted 
so that the largest subpool 
appears first in the 
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ot ee 


LZCPI00 
PAGE OF 2 


Processing 


Output 





















DLZCPIOO: 


If no buffers are 


required, go to step 6 


DLZSCD 


Determine number of 





subpools required 


SCDBF PL 


Aquire buffer pool prefix 
: z e DLZBFPL 


and format 


ft 
< feel 
rt 


SUBINFTA 
74 vA 


ud 






\ 
>| GETCORE 


Storage aquisition 
routine 
1.5.1.9 


SUBINFTA 


subpool information table ~--~—~-------~- 
according to user 
specifications. For —__——- 
ey SUBDMBCT 
remaining subpools , 
A. Arrange subpools into 
ascending control 


interval sizes 










Assign DMB’s by 
corresponding control 
interval sizes 





HIPOMAT 1.1 DIAGRAM - 1.5.1.4-0 














Label Ref Notes Routine] Label Ref 
~ > information table. 4 
SLCBP 
B. Each DMB is assigned by DMBSUBLP 
placing its DDIR position 
pointer into the subpool 
BUFALLOC table. 
BFPREADY 
SUBPALUP 
SUBTSHPL 


HIPOMAT 1.1 DIAGRAM — 1.5.1-4-0 
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CHART: DLZCPIOO 
, PAGE 2 OF 2 
Input Processing Output 
















SUBINFTA 








DLZSCD : 
Format buffer prefixes and 
















a PIITIIPTITY?, 
—_—————— —— allocate I/O buffers 99 ---------- 4 
SCDDBFPL SUBBFSIZ 4 
us Y 
eee § Riese Jeet > GETCORE 4 
Xr / oe 4 
Storage aquisition 4 
routine WA 
1.5.1.9 ZAIN PREFIXES 
4/\ > 
=f 
Continue initialization | 
eocecene BUFFERS 
Efe 
\,/ 
TO DLZOLIOO 
CHART 1.5.1 
STEP 5 
ALLOCATE BUFFER CONTROL BLOCKS AND POOLS HIPOMAT 1.1 DIAGRAM - 1.5.1.4-0 


een eae Cea Rs eee aET T 
Notes Routine} Label Routine|{ Label 
The user-specified number of BFRINIT 

buffers is allocated per pool. 

default is 32. 





ALLOCATE BUFFER CONTROL BLOCKS AND POOLS HIPOMAT 1.1 DIAGRAM - 1.5.1.4-0 
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fes0i >[3] 


Eas eee ae Se ee! Fy 


VIA Svc 2 


[esee} > 


ee a ae 


To ATTACH 


Input Processing 
~""'] FROM DLZOLI00 ~ 
CHART 1.5. 
e 
oer DLILOAD: 
sesej > 
== 
DLZSCD oy 
ea ny nnn > {02} Load action modules 
SCDSIND 
) ae PlactR goa Se 
t--.—---— | < jee) >} INITLODR 
Newey 4 morte 
Module load 
routine 
1.5.1.8 
~---------- > [02] If D.B. logging not 
required go to step 5 
~pEzscD. “SCDEXT 
womens pte — waa ------>1 103) Open D.B. log 
SCDEXTBA SCDELECB 
7 7 ae 
ae ae 
HSS == >| Joa] attach 1 er 
DLZRDBLO [04] oy 
ASY E.P. 
ASY SAVE 
7, 


| 


a a a a ee a ne eee 


——I\ 


(]-*1> 





DFHSIDL - LOAD ACTION MODULES AND INITIALIZE LOGGER 


Notes Routine} Label Ref Notes 
[01] The nine action modules are DLILOAD 


loaded and their entry points 
moved to the SCD. If db. 
logging is not required, 
SCDDBLNT contains a pointer to a 
branch register 14. 


[o3} The data base log is supported 
on magnetic tape assigned to 
DOS/VS logical unit SYS011. 


[oa] The address list for the 
asynchronous portion of the 
database logger and its save 
area address are located in the 
database log load module just 
prior to the entry point. If the 
attach fails the d.b. log is 
closed and the system continues 
without log support. 


DFHSIDL ~ LOAD ACTION MODULES AND INITIALIZE LOGGER 


58 Licensed Material - Property of IBM 


VIA SVC38 


eae 
1s 
Vs 
Vv 
TO DLZOLI00 
CHART 1.5. 


STEP 6 


CHART: PEP 
PAGE 1 OF 


Output 


DLZSCD 


SCDDDBHO 
SCDDNRE 
SCDDLARE 
7 
J 


SCDDLICT 


SCDDBLNT 


ne ee ee a ae 


SCDDLIDR 


oe ee ee 


SCDDLIIN 


SCDDHDSO 


D.B. log 


HIPOMAT 1. 1 Diagram - 1.5. 5.1. 5-02 


Routine| Label Ref 


HIPOMAT 1.1 Diagram - 1.5.1.5-01 


CHART: DLZPSBM 
. PAGE 1 0F 1 
Input Processing Output 


rr een ae oe mene ec en a ree oe te rach DETOLTUO ne a re ee ee a ee ee nn a oe a a ae ee re a cnn 
CHAR 2501 


e 

ol oy NS DLZPSBM: 
acco} > 
any / 


DLZscD DLZPDIR _ 7 DLZPDIR 
a em sta fo Satta > [oa] Aquire storage for PSB and a 


a ccuucaaunentenanad MEME fubaupmbeteaad-nsen index work area Se caduennaeniainadeianad 
SCDDLIPN PDIRPSBL 
SCDDLIPS PDIRZWA Dhend\ pawn nnn 
a ne < feel > GETCORE L------— == 3 

/ / PDIROPTC Newey | ener 
[ kone eee | sehen tn eerinpetien aint Storage aquisition {S 

7 / tine 


(rns | 1.5.1.9 


SSSSSSSY 


cea ie eid eta a ec ri) Move PSB‘s to permanent Ve 
= |---| location  —-—_«_ (“ RT TST aa a a an ei 
ons a - PSB's 


Steen ediententealenteatetetaentead | 4 s acened ginehpaimanmenneneed 


PSBXPCB 


; ae ce > [03] Relocate PSB's [Ny saiur 


DLZPDIR DLZDDIR — DLZPSB SDBPARA 
2 ee ee > [o4] Connect. PCB‘s and SDB‘s a a a oe Seahentepunhngeepatenmnel 


ae ae ee cere ane a pe nt ne oe ae aa 
———| |-—— ae 
to ot rena ate ate mae een ee ee eae in eed ee ere 


ales raha aes aera aa |7 eee Sete 


DSGDMBNO SDBKEYFB 
DSGDCBA SDBXPANS 


ene ea en ey a re eeprom 


DLZPSB DLZDMB SDBDDIR SDBKEYLN 
ca | SDBPSDB Virsa ? 


a a ee a A a oe a my silt See ae ane ee 


ae ee eee Le eee nee 4 


SDBKEYFD 


om te a cag ate 





Se a re OA RH we SO SR we a 


Vv 
TO DLZOLI00 
CHAR 


S cmedamunadenbantnatmane padpatuntemaretentantmahentanieabenisententachetamtanted A Se a a NS A aR er et ae oe te a a ae ly ee te 


DFHSEDL - MOVE AND RELOCATE PSB's HIPOMAT 1.1 Diagram ~ 1.5.1.6-01 


Se oO a YS NY HI A A No a I an A a ee ay ee a a Fy ee a PY YS ee: 


Notes Routine! Label Ref Notes Routine{ Label Ref 


A A EE LE AS SA OS SNE SE ES SE NS A NI te NE ew es ee ec we A ce na yn a ce ee A SY eS 


DFHSIDL - MOVE AND RELOCATE PSB‘s HIPOMAT 1.1 Diagram - 1.5.1.6-01 
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CHART: DMBOPENA 
. PAGE 10F 1 
Input Processing Out put 

LIOO 
Br yeset 
P7 


nar 


RO 
HA 
TE 


DLEDDIR 







DLZDDIR 

















->{[O1] Set 'NO OPEN" if DMB 
Sereererrernereame failed to initialize en 
DDIRCODE DDIRCODE 
DDIRCOD2 4 4 
(a | 
4 / 
0 a a0 ay a ae oe me > Issue ‘OPEN ALL' call to 
DLZEDIR { 
ated DL/I open/close 
Solel bs DLZDLOCO 
A ise close ans 
2.7.1 
DLZDDIR DLZDDIR 
nn Retetehatates werner en- > [03] Set DMB stopped DMB's that 
I failed to ae 2270202777272 / 
DDIROPEN P DDIRCODE 
Ss set neeeemieattnatia ented SS 
PNIRVSRT | 4 4 
ula heaters a | 
| ieee eseeooeee 
e 
\y/ 
TQ DLZOLIOO 
CHART 1.5.1 
EP 8 
DFHSIDL - OPEN DATA BASES is HIPOMAT 1.1 Diagram - 1.5. 1.7-01 
oe me eg cm ete em ere 
Votes Routine} Label Notes Label Ref 
bared atta anpmeaenabeieions tmanamieamneemamene cena boamemunamn * r . 
DFHSTIDL ~- OPEN DATA’ BASES , HIPOMAT 1,1 Diagram - 1.5.1.7-01 
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HART: IN DR 
EROR a *be 2 
input. Processing Qutput 


I SAO YOR EN RS YH ee SN RP EF SO SOY SO Se aS AL SE SH ES A ES PPP COR A IS TE EE YH - 





BLDLN 


ne BLDLVSA 
i ada eadashaheehcohetaah Peadeahedainedamboninaiiminninn nachedeed 
[ 


93] Determine storage FEM CO ernonn nen aer ty Saarcse te 
for phase oad tist 
entry 


s saliatusiiashaabeshactnataatend 


ere rs 
| 


BLDLVSA - 
MDUYAR, 5 PIR ee re > [93] I£ phase SVA resident go 


fae peeneoomaincon : tep 5 
Bos7vs Sevetep 


TRDICATOR 


Sadana adem damned 


es | oo a em oe eee 03} Aquire storage for 
requested phase 
BLDLVSA ‘. " 
pene fins, BSE 
CL atgaadeadbenaphintententeal oe 
NO. C/L grey! | secre ent eeere rere 
BLOCKS 


Seatine aquisition 
1.5.1.9 


Se ceinhadadinciaahanbadeaedechentechameteateenatent 


ayTES LAST 
BLOCK a 


4 


ee cehnhadeedaiiebemeaated 





a ae ac st sa casa mins oma a a oe ioe -=-> ates erat eetwen 
BLDLVSA Fcomena ee aN [ou Load phase a | 
paicabccacigee eae ~ [erro 
| ——— = Ce eted ono d \, 
a oeee| > oF Ys HY 
baaeeecese 


- 4 
10 VIA JQADED PHASE 


© mcorenememwerperane # 


DOS/VS CIL 


FE ae ee a a eg Na Ee FEE ER OY NT SON TE UP TOR HOS me 





-” INITSAV 
[es] Set phase entry point {s jee 


hfe dette aaah nate’ Wa 


[eseeeees| 


iain iba 


Sy SR eo ee 


tS pe age 


se 
RETURN TO 
CALLER 


Ts Leaimatatainedonhashemetcamener hedehameennatenterhenteatnateitardiamkenteatnetadantiedactan! a hema anda aetaheahs famttetely thot aatn ede sities mimedaiimehiidoaiebateateabmdvetaind 


DFHSZDL - MODULE LOADER SUBROUTINE re HIPOMAT 1.1 Diagram ~ 1,5.1,-8-01 


ee EE FE PN RE TR A A 
Notes Routine} Label Ref Notes Routine| Label Ref 
eT a ne rceereen gem mine oiar in aaron an RR Siereseonsrtemas ese | Spavemenrs-et teem | Sore mmeneeminsem | sentearimsinvce | wasn weenie ap cperier ericemsenieeren co erenee rn sive mppisewievetarnesie onic | ar'eon'gnerrearien,| avin ceenenesinnw | aymtinienamen 
[03] Caller passes requested phase INITLOPR 

name in a work field BLDLN, The 
output of the load call isa 
DOS/VS directory entry at 
BLOLVSA. 


[93] Amount. of storage is determined 
by number of library block * 
1024 plus number of bytes in 
last block. 


Le CR SEALE ORE I SS A A OR eee Peet eee ee TON tn ae ae ian | an a aeaa 4S ca BLO 


DFHSIDL, ad MODULE LOADER R SUBROUTINE HIPQMAT 1,1 Diagram ~ 1,.5.1.8-01 
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CHART: GETCORE 
7 PAGE 1 OF i 
Input Processing Output 


a re ae cer eee a er ee eee wih CRLeR oe ee a a ee ce ee a a ne a a we ne ee a a rr rere eee 


ese0e > 


<I 
e ihe GETCORE: 
ne A 


“""GOREADJ.—~—~—~SOSIPCOM.———S Res of! 
- ete wantin ince > {02} Align core to caller 
ce pen et ate a | specified boundary 


REGISTER 1 





-_ ; REGISTER 1 
SIPCOM \ ciatetenmnenated [02] Aquire storage from I, guint 
pein ell See ca VIVTTTTATTTTT 

CICS/VS SIP TEER EEESSS -|/ [ao 
SIPCORE Ese sree eee 
ConeeeaS YF Vee eee Si Sa ae at 

<’ ee] >{SIPCORE 
ae ap ct pt ae we \ rrrd we ree a mn wee ee 
CICS/VS SIP. 

et a —— storage routine 


[03] Return storage address in 
register 1 to caller 


ica 





7 
RETURN TO 
CALLER 
DFHSIDL - STORAGE AQUISITION ROUTINE = #8 eee yee aeess “HIPOMAT 1-1 Diagram - 1.5.1.9-01 
Notes Routine] Label Ref Notes Routine| Label Ref 
[01] This routine aquires storage 
from CICS/VS SIP *SIPCORE’. 


DFHSIDL —- STORAGE AQUISITION ROUTINE HIPOMAT 1.1 Diagram - 1-5.1.9-01 
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CHART: DMBLOADR 
. PAGE 1 OF 1 
Input Processing Output 


eA A YO we pe a a A a A A Se te on a em ca re ee nr a a oe ete ee 


FROM CALLER 


e 

ee N DMBLOADR: 
eees|] > 

——--4/ 


a ne ce we cen a [or] If not HDAM go to step 3 


DMBORG 


et wre | ee 


wre mem mee 


DMBDLAGR 





2 ; ““DMBDACS. SS Soe eae. 
te mem em ae 02] Load Randomizer 00 opener 


--|/ eaccedcis aaa, ce et gen os i 


DLZDMB iw fmm RANDOMIZER 





> [03] Set buffer space required 








RETURN TO 
CALLER 


a AP ne A a om a a a 0 A A a we me A a Oe EE cE a WY Os 


DFHSIDL - DMBLOADR LOAD RANDOMIZER AND DETERMINE BUFFER SPAE HIPOMAT 1.1 DIAGRAM - 1.5.1.10.01 


a OR TN A I NI NO PO a A SH hm en 


Notes Routine] Label Ref Notes Routine| Label Ref 


a ceeitnataantanhenhannmeimetentonteateneetestenmententemteeatestentabenteedeedants cntemtnaseetentnall Yentunemetmeteemmeentzedt (enhastennadtemtacteeteel Rantentaaeatemteall Ui Hesetmdeetentuetemn armed netaseteemetnenet tien ne ee ee ee Eee as [ena eetn 


[02] Before loading the randomizer a RANCKLUP 
check is made with all currently 





loaded randomizers. If one of 
the same name as that we are 
loading, the entry point is 
resolved and the actual load is 
bypassed. 


[o3) If buffer pool space is GETBUFRS 
required, the size of each 
Control Interval, rounded to the 
next multiple of 512, is stored 
in PSTWK1 for later allocation 
of the buffer pool. 





ee a a cee a ee a ere mg ene cae om ee ew ce A a A AS A A ON a ee 
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CHART: DMBOFFAJ 
F PAGE 10F 1 
Input Processing Output 
- ae FROM CALLER [J ™ Var os) 
at 
atiis\ DMBOFFAJ : 
sees] > 
poems 
DLZDDIR = : : ~DLZDMB gee 
ey Tn > [03] If DMB invalid go to step pr-—4N peg J} pene 
See oes =a ~~ yg ea sss 
DDIRCODE DMBACBRP 
DMBACBEX ee kp 
a -------+--- RPL 
DMBACBAD 
{s eee iene 
DLZDMB —— . Wt > 
ean aie ae ase Ca Saat > {02} Build VSAM control blocks yi 
DMBORG ---~------ 
DMBPPRND Plaid pesssewas aaa ee ACB 
soeeeeeeos < fee} >|GETCORE 
Np--a/) | —---------- eens 
acacia Storage | 
AcquiSition —-_- fg See enn 
Routine 
1.5.1.9 EXLST 
DLZDMB — . 
ey a> [03] Process secondary list = 
me VIVIITTIT TTT 
soot — entries Sao p eA es pee wale 
DMBFDBA 
DMBLIST 
DMBXDSDB 
DMBSCDE —— ; 
ieee aa —~j\ (ou} Exit 
['] eo] >] i. 
Se — <a 7/7 


Notes Routine} Label Ref Notes 
[o2 If HISAM two sets of control ACBADLUP 

blocks wil be built. 
[03] The pointer to the FDB is PSDBROUT 


relocated. If a secondary list 
is present, it's code is tested, 
and referenced DMBS are resolved 
to DDIR pointers and placed in 


the list. 


2FHSIDL - DMB RELOCATE AND VSAM BLOCK BUILD 
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a a na ee ee a eee eee: ee ee mae 








HIPOMAT 1.1 Diagram - 1.5.1.11-01 


Routine} Label Ref 


HIPOMAT 1.1 Diagram - 1.5.1.11-01 


CHART: DLZSTP0O0 
ts PAGE 1 OF 1 
Input Processing Output 


e Pari DLZSTPO0: 











coco] 
—~-4/ 
“DFHCSA ~~CSAOPFLS - 
ie tei. | eee ee eters -~---------> [22] Locate E.P. of DL/I 
eens ES Pearce termination 
CSAOPFLA CSADLI 
DFHTCA DFHDLIAL 
ete ene DLISTRM {o2] Call DL/I termination 
bolN, ees ee Se 
< [ee] >| DLZODP02 
por jan -- - ------ --- 
DL/I system 
termination 
7.4 
[03] Return to CICS/VS STP 
[eseceees 
—— 3° 
V7 
Vv 
RETURN VIA 
DFHPC 
TYPE=RETURN 
DLZSTP00 - DL/I ONLINE SYSTEM TERMINATION TASK = SCS<“<C ~HIPOMAT 1.1 Diagram - 1.6.1-01 
Notes Routine{ Label Ref Notes : Routine} Label Ref 
[01] Control is gained from CICS/VS 
stp via programs presence in 
DFHPLT. 


DLZSTPOO - DL/I ONLINE SYSTEM TERMINATION TASK HIPOMAT 1.1 Diagram ~ 1.6.1-01 
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Input 
FROM CALLER 
eee 
eeee}] > 
ey / 


te aa we a ee Ny a a es a tt 


DLZPDIR DLzscbD 


= = ee 
Eero (il oommnae | 


te ah er a yy ee a a mn mee 


DLZPST 


DLZPSB 
= ea toa a oe NY 


a ey / 





ae a i ae see ct an se 


DLZNUCxx — RESOURCE SCHEDULING ROUTINE 








CHART: DLZSCHDL 
. PAGE 1 0F 1 
Processing Output 
DLZSCHDL: 
oe : DL2PST 
[02] Acquire PPST and PST eee ion son cia 
— VIVIVAITAIITITVT 
ZLOCEIEEE yy 
Chart 1.7.1.1 rans 
DLZPDIR 
Check segment intent IS arate ——s 
conflict 420000000 FT RRR Rem mm “|7 [-----—] 
Chart 1.7.1.2 eee 
DLZPSB 
[03] Create and relocate iss ee 
duplicate PSB an@ 04000000 TTT et etr ene 17 [-----—| 
PDIR(Read only intent) | __at nen atetn em 
Chart 1.7.1.3 
Z “"DFHTCA ~~~ ~S=dDLZPSB 
{ow Set task scheduled and 9 (| ff gen a set me a ana a sit it ti nit 
write scheduling record For TTT ESS 2 |--—-—] | 
4 aoe nae es te al ta ee si it tc dtr cam i ea nek 
Chart 1.7.1.4 / 
/ |S 
7/7 > as 
“-]7 / \ 
1 | 
N / 
prrerrrry D.B.LOG 
srry] |Last ne 
V7 
v 
RETURN TO 
CALLER 


HIPOMAT 1.1 Diagram - 1.7.1-01 


Notes Routine} Label Ref Notes Routine] Label Ref 
[03) Task wait or suspend may be DLZSCHDL 
issued. 
[02] Task wait may be issued. SCHDTCK 
[03] Suspend due to storage request TASKDUPP 


May occur. 


DLZNUCKK = RESOURCE SCHEDULING | ROUTINE 
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Se a ae ete ae Re oa ce em aD a ep A ann ah 


ae a te te nn et ee 


HIPOMAT 1. 1 Diagram ~ 1.7.1-01 
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Input ; Processing Output 
FROM DLZSCHDL 
CHART 1.7.1 
STEP 1 











TASKSCHD: 














DLZscD 
wenn n-ne n+ s----> If at MAXIMUM TASK, 
——e suspend calier 
SCDSIND 
NOTE 006 
soeet > 
DFH é 
(S0SeENp 
| Check for segment intent | 
conflict. 
[oe | 
eat > SCHDNTCK = 
\rn/ DLZPPST 
Check Segment 
Intent ‘- 
1.7.1.2 inane 
DLZSCD | beta tol 





woee-----> Acquire free PST Prefix 






DFHTCA 






TCADLII 








wait caller 





DLZNOCxx - TASKSCHD ACQUIRE PPST AND PST HIPOMAT 1.1 Diagram - 1.7.1.1-01 





ee se mara 


Notes Routine| Label Ref 





Notes Routine! Label Ref 





ee 














Maxiaum task is a condition TASKSCHD 
where all PST Prefixes are in 
use. 


A prefix is acquired from the 
free chain and placed on the 
active chain. 





oe a ne me arlene on ten te eA react ly ne a 


DLZNUCxx ~ TASKSCHD ACQUIRE PPST AND PST HIPOMAT 1.1 Diagram - 1.7.1.1-0 
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Processing, out put 


a 





bL2Zbst 
PSTPREAD 
ae te ae ne 


PSTSCDAD 


ted stnedteeiectargedrs bendy 

Pstsv1 

cen sist 
ee NM LLAALELLAALE 


PTT ie psTsv3. 
é PsTsv4 

DFE 

GETMAIN pstsv5 

—- PSsTSV6 

evobes ee 














\/ 
0. DLZSCHDL 
aa scupn 
STEP 2 
DLZNUCXY - TASKSCHD ACQUIRE PPST AND PST a RIPOHAT 1.1 Diagram ~ 1+7+1<1-02 
" ate ramet, Mee Sen ate Me Rae ah ee Se ed 
Notes Routine| Label Ref Notes Routine| Label 
tf the Last PPST is used, the 
faxtask indicator will be turned 
ons 
DLUNOCxx = TASRSCHD ACQUIRE PPST AND PST a AIPOMAT 1.1 Diagram - 1.7.1.1202 
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CHART: SCHDNTCK 
PAGE 1 SF 1 


Input Processing Output 











SCHDNTCK: 







DLZPDIR 


assosicuiaey If PSB is in use ana 


update sensitive 
cooy 
e@oee| > 
DFH é WAIT 


seem en denen) Check intent against all 
tasks waiting for intent 





PSILNINT 
wow Slay SCHDCKNT 
intent check 
routine 
DLZPDIR 








PDIRCODE 











DLZPDIR DLEDDIR 
Heeeedonmom> [o3} Check intent against all : 
scheduled tasks CLPELTTLEA eaten Seer meneame’ 
betas! 4 PDIROPTC DDIRC HT 
ah eterno st ote earner 
J bemaed \ 
DDIRCNT sth SCHDCKNT 
DDIRPPST Intent check 
routine 


Leseseer 
se 
\Y/ 


TO DLZSCHDL 
Speee 6721617 
STEP 3 





HIPOMAT 1.1 Diagram - 1.7, 102-04 








Notes Routine| Label Ref Routine} Label Ref 
ne ee te ee a ce ee ee ee nee nteente teete aerate | etait mesa emaers fr temainrtireeenttn mtn 
({o1} If this condition exists and the SCHDNTCK 


holder is not an MPS scheduled 
task, a wait is issued without 
going through intent checking. 


[02] SCHDPCLP 
[o3] If a conflict exists and the SCHDCKNT 


holder is not an MPS scheduled 
task, a wait is issued. If the 
holder is an MPS scheduled task, 
a data base-not-open return code 
is returned to the user. 


| 
; 
| 


LZNUCxx - CHECK SEGMENT INTENT 





HIPOMAT 1.1 Diagram - 1.7. 1.2-0° 
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Input 


ates PROM DLZSCHDL 
CHART 1.7.1 
SHEE. 3 
e 
\. | TASKDUPP: 
eeee| > 
/ 
DLZPDIR 


ww en nnn n ene n-- >{{o1{ Tf = eae only intent cops 
Sethe cea © to ste 
PDIROPTC _ - P t 
DLZPSB 





Processing 





i a ca Han sa > [02] Acquire storage for PDIR, 


DLZPDIR PSB, and work areas 


_= ry 


ea —DLgPsB.St=~S \ Move PDIR, PSB, and 


Tf all allocate work areas 


Relocate PCB, JCB, and SDB 








DLZPSB DLZDMB 


wewereronn weene> Connect new PSB with DMB 


SDBPSDB DMBFSDB | £e 








—/ 


GED Exit _ 


Pa 8 a 


DLZNUCxx - CREATE AND RELOCATE DUPLICATE PSBs 


E 


a rn a re re a 











Label Ref Notes 


a i se a en een EN 


Routine 
TASKDUPP 
Task suspend possible due to 
unconditional CICS/VS GETMAIN. 
SCHDDPL 
Each PSB is scanned and the SDBs 
= 
| 
ett 








are placed in the corresponding 
SDB chain which starts in the 
DMB at DMBFSDB. 


— 


DLZNUCKX - = “CREATE AND RELOCATE a lac PSBs 
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Out put 






DPFHSC 
GETMAIN 


4 
7 DLZPSB 
4 


4 
a a 
\ yy 


to BLZScHDL 
CHART 





ART: TASKDUPP 
GE 10F 1 


DLZPDIR 


Peed 


DLZPSB 


PSBLIST 


JCBLEVND 
JCBSDB1 
JCBSDBND 


DLZDMB 


DMBFSDB 


HIPOMAT 1,1 Diagram ~ 1.7.1.3-01 










Routine 


HIPOMAT 1.1 Diagram - 1.7.1.3-C1 


Label 














Input Processing 
! FROM DLZSCHDL 
CHART 1.7.1 
STEP 4 
e 
° \ 
eocce| 
H / 
DLZPPST 
weer r eer nH- w---> Indicate task scheduled 
} eee | | 
| | 
DLZSCcD | | 
ee See oo ep a ne > [02] Log task scheduled 
| = 
SCDREENT | 
| SCDCWRK 
DLZSCD 
| oneenn--------- > Set hashed ID in PST and 
-_— update ID use chain 
SCDNAVID 
ee ee | 
Tae ae ‘- SET TASK SCHEDULED AND LOG 
Notes Routine 


ee 





[or] ea 

[oz The scheduling record is only 
created for tasks with update 
intent. 

[03] The tHASHED ID' is used by SPACE 
MANAGEMENT to prevent freed 


space from being re-used before 
the task terminates. 








DLZNUCxx -- SET TASK SCHEDULED ANT LOG 


Licensed Material 








T: TASKSCOM 
10F 1 
Out put 


DLZPPST 


PPSTIND 





i 


Toe D.B. LOGREC 





| DLZscbD 


SCDNAVID 
e 
| _ 
\p7 
ea DLZSCHDL 
ART 1.7.1 
STEP 5 


a ana ee 


HIPOMAT 1.1 Diagram - 1.7.1.4-01 





Routine{ Label Ref 
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CHART: DLZODPOC 
AGE 10F 1 











P 
Taput Processing Output 
See Se Re Fe a Ct ee pice aici ete aroeen tee ees Rae eee 
~ TERM cICS/VS 
PCP 
Peliag 
. \ DLZODPCO: 
ie a a cc i wee0oae| > 
DFHPPT DLZSCD / 
;PPTPI | 
=. SCDACTBA DFRTCA 
San | i Sreneee rate Locate task's application 
~-- control table entry 


EE | 


4 7 


nn | 





| 
DLZACT | 
| 


ACTNM i 
eameneer 
/ 


Z 


ey 


a 
SL 


DLZNUCxx - TASK ‘SCHEDULING ROUTINE HIPOMAT 1.1 Diagram ~- 1.7.2-01 


RETURN TO 
CcIcs/V¥VS PCP 












































Notes Routine{ Label Ref Label Ref 
a cee See an pas 
j fo. This step checks the 
authorization of the CICS 
application program to use DL/I. 
If the program name is not | DLZODPOO 


located in the act an error 
indicator is turned on in the 
TCA. If the act search is 
successful the act entry address 
is placed in the TCA. 


| Notes Routine 


a pe rc A a 


a i ne a a a a a a a a 


oe re a te a A an es SA Oe Us ec i A cp A a 


DLZNUCXx - TASK SCHEDULING ROUTINE HIPOMAT 1.1 Diagram - 1.7.2-01 
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CHART: DLZODPO1 
. PAGE 1 0F 2 
Input Processing Out put 


FROM CALLER 
\ 
> 
7 


TCASYABI 













DLZODP01: 





‘ 
' 
t 
] 
1) 
' 
‘ 
‘ 
' 
' 
t 
' 
' 
{ 
Vv 
tH 
=) 
a 
yy 
n 
o 
ie} 
rh 
ry) 
jog 
i-J 
° 
i] 
B 
yy 
a) 
ct 
9 
n 
~ 


termination 


DFHTCA [prarca  bLzppst 


Sa 
TCADLIT PPSTMPS —_ 








task is BPC. If not BPC, ioeea MPCFLAG {Dizxc 301 


go to Step 3. 





03 | log task termination 


7 
Sy 
: 
‘ 
( 
1 
( 
‘ 
' 
1 
( 
Vv 


| DLZEDIR DPBTCA li 


| lay PSTLIPRA 


{ PDIROPTC TCADLIZ 





Issue TERM call to call 


analyzer to purge buffers. 

uN 
Steel >{ DLZDLAOO 
a boo 
DL/I Call Analyzer 







DLZSCD DLZSCDEX DLZSCD 





sae ees ee identifier 
SCDEXTBA SCDEIDNX 


SCDEIDST 


SCDLOWID 





a 


DLZODP01 TASK TERMINATION ROUTINE HIPOMAT 1.1 Liagram - 1.7.3-01 


Notes Routine{ Label Ref Notes Routine! Label Ref 


7 Space Management uses the low 
No formatted dump will be : . er 
‘ eer and high identifiers to exclude 
produced in case of missing PST ‘ . 
: ro . free space belonging to active 
or insufficient core available. 


i 
\ tasks from re-use. 
DL/I system abend will be 
reduced to task abend's : In 
case of DL/I system abend all 
DL/I tasks will be abended by 
DL/I. For each task then 


DLZFIDPO will be called. 


DLZFTDPO uses the CICS DUMP 
macro DFHDC, that dumps DL/I 
blocks on the CICS DUMP data 
set. To get the dump on printer 
use offline CICS program DFHDUP. 


If BPC (DLZBPCO0) is the 
terminating task, the POST bit 
in DLZxXCBO1 is set on to signal 
MPC (DLZMPCO0) that BrC abended. 


The termination record is logged DLZTKTRA 
for normal termination of update 


users only. 


The lowest active identifier is TRULGBY 


maintained in the SCD. DL/I 


DLZODP01 TASK TERMINATION ROUTINE HIPOMAT 1.1 Diagram ~- 1.7.3-01 
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TT: DLZODPO1 
OF 2 


Input Processing Output 


Update DMB use count and 


VIMAITTIG7T7T7T7 
post waiting tasks 1 IAS 
cou, 





















DLZPPST 





DLZDDIR 





DLZPSIL DLZDDIR 







PPSTECB 











PSILDIRA 


| 
DLZPDIR DLZPSB 










DLZPSB 











Unchain SDBs and free \ 
pemoeraag es 
/ 








duplicate PSB 00ces cee 
\ 12¢ SDBNSDB DSBBFSDB 
e0eoo|] > 
DFHSC 
FREEMAIN 


PDIRADDR 
PDIRCODE 





DLZPPST 





DLZSCD 





rn re re 
DLZPPST DLZSCD 


Free DL/I Task resources 










SCDSIND 


ree 





{ eae] 
DPH G 










_|SCDPPSTS {{]_ pee 
ee) 
e 
\/ 
v 


RETURN TO 
CALLER 





DLZODP01 TASK TERMINATION ROUTINE HIPOMAT 1.1 Diagram - 1.7.3+02 


Label Ref 


DLZODPO1 TASK TERMINATION ROUTINE BIPOMAT 1.1 Diagram - 1.7.3-02 
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Notes Routine| Label Ref 
All tasks waiting for intent are TRMPOLUP 
posted. At the next dispatch 
cycle they will atterpt to 
schedule. 
Read Only , duplicate PSBs are TRMFRESB 
identified by the PDIR indicator 
PDIRDUPL. 
1 {98} This routine cleans up the TRAFREPP 






terminating PPST, removes it 
from the active chain, and 
places it on the free chain. It 
checks MAXTASK and resumes a 
task suspended due to MAXTASK. 








DLZODP02: 


DLZSCD 


oa ee ca er > 
— 


SYSCOM 
ramen YO ara aac > 








NPARTS 








ec a a a 
eee 
e 
e 
a 
SH 
Vv 


DLZSCD 






Processing 


Acquire dummy PST storage \ 
(for register save areas) 


to close all data bases. [eeeet> 
DFHSC 


|eeneizn 

IN 

Close Data Base Log MA Pd 
errs 


DOS/VS VIA 
i 


Notify MPS batch programs —————— —? 
and delete XECBs. 


Close all data bases 


err7777777 »> 









SCDDLICL fit asians 
——— ss Bcd DLZDLOCO 
DL/I OPEN/CLOSE 1 
{ 
| 
a ent 
DLZODP02 SYSTEM TERMINATION 
naiaaiataas Starrs hora Ceres [ towtinef taper | ree | 
Routine| Label Ref Notes 
STPBFFL 
[oz] This module is entered twice. DLZODP02 








First by DLZSTPO0, then by 
DFHSTP. 


MPS batch programs may be active 
or waiting for online MPS 
processing and are therefore 
notified if CICS terminates. 
Online XECBs defined for MPS are 


also deleted. 


DLZODPO02 SYSTEM TERMINATION 


ER eee ee REO APE! Eee | ORME er eee 


Licensed Material 


- Property of IBM 


T 


ee 


DLZODP02 
1 OF 2 


Q» 
bit 


Output 





/ \ 
| \ 
\ / 
D.B.LOG 


DLZPST 
PSTPSB 
PSTSCDAD 
PSTSV1-7 [ 


DLZPST 


fae 1 





ne 


HIPOMAT 1.1 Diagram - 1.7.4-01 
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Label Ref 





eee Routine 


Input Processing Out put 








If error ocurred during =>) 
DL/I OPEN/CLOSE or if CIcs 
system terminated 


abnormally write formatted SYSLIST 
dump of DL/I blocks 
eoccocce 
| [-set=e-3] 
\y/ 
RETURN TO CICS 


a a i a a a i a 




















DLZODPO2 SYSTEM TERMINATION HIPOMAT 1.1 Diagram - 1. 7.4-02 
i Notes | Label | Ref Notes Routine] Label Ref 
le Dump wodule DLZFSDPO is loaded 
via DFHPC TYPE=LOAD and 
| executed, 
| 
| | 
| 
| 
{ 
{ 
| 
| a 
a a tt i te etc 
DLZODPO2 SYSTEM TERMINATION HIPOMAT 1.1 Diagran - 1,7.4=02 


76 Licensed Material - Property of IBM 


conkrs DLZOWAIT 
PAGE 10F 1 
Input Processing Output 


an ti a i int in eh it ns sh id i i rcs en it ni en at iA a tg hh ne a a a em ns a a ap wh a a a eS oe 


FROM CALLER 


. 

sh DLZOWAIT: 
eeee| > 

gy / 


se sib a ene ne er seg 


DLZSCD 


jtiano co itera S > 01] Establish CICS/vs 

ack sas i dil ss environment 

SCDCSABA 

py ae ae Fale oy a TV ““DLZSCcD. SS DLZPPST 

DFHCSA 

ee ee a ee ee ee ee ee AO i ae ee ee ee me oe 

SCDCDTA PPSTIND 

CSACDTA 

as cmed sans |S se es i ee 
7 > 


i a ah eh at 


i a a i eh et th at 








[02] Issue CICS/VS wait 


Torake warr {Mee 


a a a a a a a A 


[03 Restore DL/I environment a 


SCDCDTA 





a a ps a ae a a a 





ee ee A te lw a a a me se a ae ca a ate eee a a ce ae eile a ae es 


DLZNUCKx - DLZOWAIT ONLINE WAIT ROUTINE HIPOMAT 1-1 Diagram ~ 1.7.5-01 


a i i tt i es nh hh A hi hl en sn i ah a kk ee eh ne a a an ec ca sane ee ma a ae ca ae a ae a a mae. ——, ee ea a ns a a no 


Notes Routine] Label Ref Notes Routine! Label Ref 


ith int ie a a ah it mk lah a a a en eden cam ants eps | me aisha natant me tt cms | met nies warn ane | |e neh et a a a A A i ee ee aeenineees | aan een cam eet | coe ene ence cette | i ee om ae 


ch i tt he emi an ee te tet em me hcp a. ek a en a lh a A A A a A ne. mi a a eo 


DLZNUCKx ~ DLZOWALT ONLINE WAIT ROUTINE HIPOMAT 1.1 Diagram - 1.7.5~01 
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CHART: DLZOVSEX 
: PAGE 1 0F 1 
Input Processing Output 


ath es i es i a a ae ee eS nen en te ce ee a cs a sn ei i a a eh es ma ec A a ee a ep ute le i de yt at a. 


FROM 
MODULE PKOIOA 


ame ‘ DLZOVSEX: 


weve a 
ay / 
Rela ei ts ioe ate MD hie a ck teehee et 
RL a n> DFHCSA DFHTCA 
eS: = oe nn nena >{[o 1} Restore CICS/VS wena --~- aan ee 
cea environment seen Hee ee 


A a nr cr a et 


es eee 


A(cCB) 


te tn tate a a ae 


A(EXLOC) 


a a sn a si 


a ae tt na sd Ste en a i et 


foe wane eee ween) [02] Wait for I/0 completion 
Jn cin ee wasn aemeam tis via CICS/VS 








Vv 
RETURN TO 
IKQIOA 


i ae a in ce te ep a ce ae ae mene nn ne a et a ca i a i wa a ee Se tf hn sk es ae at ha 


DLZNUCxx - DLZOVSEX VSAM ASYNCHRONOUS EXIT PROCESSOR HIPOMAT 1.1 Diagram - 1.7.6-01 


i a ne a a ne a ee a Aa ec SE a ne ee a ns a Se a a ee gh a ae A ek a a he a 


Notes Routine] Label Ref Notes Routine] Label Ref 


ne a a ae Le a id i a ee ee a ee ee | eaten | mete eee | ene ene a te a ae a enn ee a a a ee mene eee | eee | mee | nena 


i ane ae tc a he Me a ce et ten enn te mee A ee ee a te ee ene mnie A a nh a he A uh es i te a he 


DLZNUCXx - DLZOVSEX VSAM ASYNCHRONOUS EXIT PROCESSOR HIPOMAT 1.1 Diagram ~ 1.7.6-01 
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CHART: DLZERMSG 
< PAGE 1 OF 1 
Input Processing Output 





@eeet > 


Patvees Serena eee Gee ep SR Da AR ee Ae ee aE 
FROM CALLER | 
> \. | DLZERMSG: | 




































R1 > ---4 
co PARM LIST [| ( prw------ +-—> Establish CICS/VS 
ji LL ITIIITTIA 
environment (420 2 2 2 2 2 SR TRS emnm 4 
DLZPST Y DLZPPST DLZ2SCD 
i “n> 
PSTSCDAD | eal 4 | PPSTIND SCDCDTA 
DLZPST DFHTDOA 
>({02[ Aquire storage and > 
(4 aes a ae 
—_—_—_—_— assemble error message | 
PSTERCOD 
ree eceel| > 
PSTERDT1 | 
DFHSC 
PSTERDT2 |ebsazy 
Write message to TD | 
destination CSMT 
cup 
eeee] > 
DFH 6 
WRITE 
DFHTDOA [oa] new DL/t : “ DLZPPST DLZSCD 
were er ee rcerce= estore environmen 
SAA LLM 277 I 7A » 
| ome |b" 4 SCDCDTA 
! 
eeeeseseo 
comm 
Sy 
RETURN TO 
CALLER 
DLZNUCxx ~-- DLZERMSG TRANSIENT DATA MSG ROUTINE HIPOMAT 1.1 Diagram - 1.7.7-01 
Notes Routine} Label Ref Notes Routine| Label Ref 
The parameter list is used only 
if psf is not available. 





———. cee ete 


DLZNUCxx -- DLZERMSG TRANSIENT DATA MSG ROUTINE HIPOMAT 1.1 Diagram ~ 1.7.7-01 
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Input Processing Output 









eHsosrea<2> > {o7] Determine call type 
(system or online). If a 





system call, go to step 5 


ecedeteeses > | 02] Build parameter list and 
call Analyzer 


Chart 1.7.8.1 


Process call result 


Chart 1.7.8.2 


[ou] Go to step 6 s 1S] 
vA 
| DLZPST DFHTCA 
Sega ee > Process schedule, tern, = 
LLELELEETT fed, eee 
and system calls 00 TRerReenen 


Chart 1.7.8.3 
[et Return 
—/ 


e 
\y/ 
RETURN TO USER 


ee | Ree ee 


DLZPRHOO ~- ONLINE PROGRAM REQUEST HANDLER HIPOMAT 1.1 Diagram - 1.7.8-01 





Routine Label 








——— 


DLZPRHOO 


| 
: 


Peehe ene Pits at eee le ed 


DLZPRHOC - ONLINE PROGRAM REQUEST HANDLER HIPOMAT 1.1 Diagram ~- 1.7.8-01 
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{or Register 1 points to the call 
parameter list. The function is 
compared for scheduling, 
termination, or system calls. 


{03 A CICS/VS abend may be issued 









CHART: PRODLIC 
- PAGE 10F 1 
Input Processing Out put 
[ere oe eee) eee go a er ee 
If caller not scheduled, | | 
set error and go to step 4 
| : DLZPST 
Validate and move call 7 \y 
parameter list to PST. PEILIZTITIIIN y -——------ 
| | bach | 
| DLZPST 
[o3] Call DL/I ANALYZER = wwe nr nnn nn en- > rs 
es | 
a ———4 


DLZDLA0O 
DL/I CALL ANALYZER 








} 04 | Return to user 


if 


\ 7 


ects 
e 
Vv 
TO DLZOPRHO 
| 


caeer fies 


| i 
a 


a a a a 


A A A sg a 


ee ee 


| 
: 








| Notes Routine} Label 


| Ref Notes 
| hen ata ene 
fo2] If call was not MPS, the 
addresses in the parameter list 
are validated against the limits 
of the partition, and the 
parameters are counted to insure 
they don't exceed 18. 
At this point the system is EXITANAL 


BUILD PARM LIST AND CALL ANALYZER HIPOMAT 1.1 Diagram - 1.7.8.1-C1 
switched from the CICS state to 


lh | 


ILD PARS | LIS? AND CALL ANALYZER HIPOMAT 1.1 Diagram - 1.7.8.1-01 
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Label Ref 


HOMERS | 








the DL/I state. That is, 
standard register assignments. 





w SSS ee 


T: PSTSCB1I 
10F 1 


Input Processing Output 


task or system abend, 
—_—_ to step 4 
PSTABIND 
| 














DLZPST | | laa tatetatatereded > If calli not MPS, move data 
~<--J5 VITIITI77777) 
to user's I/0 AREA 000 STROSS ZA 
| PSTUSER | 
| 
Go to step 5 +N 
ece| > 
t poe | DLZSCD 
end user 
Cony SCDSIND2 
seen tyr 
DFHPC 
ABEND 
dt 
fy=t> Return 
—/ 
[esses | 
e 
\/ 
RETURN TO 
CHART 1.7.8 
STEP 4 
a pe ee eens 
DLZNUCxx - PROCESS DL/I CALL RESULT HIPOMAT 1.1 Diagram ~- 1.7.8.2-01 





Notes 





| Routine} Label | Ref 
for] If either the task or systen 
abend indicator is on and not an 
MPS call. 





fc If this is a task abend, a CICS PRHABEND 
abend is issued. In addition if 

this is a system abend the 

System abend indicator is set in 

the SCD and all active DL/I 

tasks will be abended at the 


earliest opportunity. 


Notes Routine| Label Ref 


DLZNUCXx = PROCESS DL/I CALL RESULT HIPOMAT. 1.1 Diagram - 1.7.8.2-01 
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CHART: TESTFUNC 
. PAGE 1 0F 1 
Input Processing Output 
San cake ween esac awl ot Ss Sa gece ce Sena sete 
1.7.8 STEP 5 
*| 
e wT Se TESTFUNC: 
esee 
USER CALL any / — . 
FUNCTION 3 j ¢----- ee > [o2 If function eq PCB then 
[ ] schedule 
Chart 1.7.8.3.1 
ee me > {o2] If not TERM call, go to 
step 6 
DFHTCA F F 
om ey eo me ene mee wen en gee > [03] Call Task Termination 
TCADLIZ 
eee nena nen ac DoS tebe as 
estan hts onc < feel > DLZODPOL 
Neon ee ED A A A SE 
Task Termination 
om acannon net > [os Free PST storage 
O05] Go to step 8 
{25} . PREEMAIN 
USER a 
FUNCTION Satehatenetaaiteatetata? > [06] If function is system 
call, 
Chart 1.7.8.3.2 
DFHTCA 
am ce ce ar > {°7] If function invalid, set NS See 
INVREQ (42 tm rrrmmermmmemmm | P| ene 
TCAFCTR 


isl 


ee ae on re re mr ee 


DUZNUCKx ~ TESTFUNC PR PROCESS SCHEDULING AND SYSTEM CALLS 


A a eS A A SS LE I HS I 


Notes 


ic 





a OO ae an an pT ee RE NPN WO mae ecceveeere meee | ten mmm men: 





DLZNUCKx — TESTFUNC PROCESS SCHEDULING | AND SYSTEM CALLS 


Routine] Label 


Return 





a ay at ae a ey SS 


HIPOMAT 1.1 Diagram ~ 1.7.8.3-01 


Ref Notes Routine| Label Ref 
ISUTERM 


HIPOMAT 1.1 Diagram - 1. 7.8. 3-01 
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DLZACT 
> 


"1 FROM CHART 


Processing 


1.7.8.3 STEP 1 


es 


[Las 


ee0ee| > 


aay 


wow er ene ee> 


[02] 


GETPSBN: 


If no PSB name, set 
default PDIR pointer 


Scan PDIR for PSB name 


oP Oe ep A A DS ED SP YO a 


| 
7 
Vv 


ANASANSANA 
“N 


N“ 
“N 


] 
1 
i 
4 
4 
i 
4 
4 
4 
i 
i 
t 


RET BRD 


Output 


LY I I EC SO LER SY EE SP SP 


DFHTCA 


TCADLPSB 


teat ahaateieeuaeabedd 


ae SPY NE RY 


ACTPPTR 


DLZPDIR 
> 


[23} 


verify PDIR entry is in 
task*s ACT 


DLZPDIR 


mane nnn eee> (aor 
pe eee ae 


Call task scheduler 


baslnshadeeehacheta tals chadedntete 


[4] 


fblewd\, peoone cence ce wns 
< [ee] >|/DLZSCHDIL. 

en A 
Task Scheduler 


eS SR 
a 


ee A a PS A SS a ce LO a SS Sr EY S heshpebedcakenteed 


HIPOMAT 1+] Diagram - 1-7-803-1-01 


ee A A A A EY ES EL SH ec oertnatontaemat on doentanaieasiasteattaasiuanimetaestan hentia taains teerteetoesnoeateatesdanteaatean tuastenctan ectes Sesntetsharesenstaaneateamadsaseenten teeneadaanastentemtacetanhenanieesnetuatenteatent 





Notes Routine| Label Ref Notes Routine} Label Ref 
Sp aac Sa Me a te sn cnet ca to ee Seca aco] sneer: > nr Spr iw SS a ae a pn Cov ve coop pastes: asopreahvererpeanrce | eiventeresesteein:| Sorpesrataees, 
[02] The first PDIR pointer is taken GETPSBN 

from the tasks’s ACT entry and 
used to generate the PSB name. 
[02] If the PSB name is not in the 
PDIR, INVREQ is set in the TCA 
at TCAFCTR. 
[03] If the PDIR entry is not found, 
INVREQ is set in the TCA at 
TCAFCTR. 
fae aoe ian ew ene aa cern eee os fare aia neeecshimnarecieas nine Caio asa manasa cc pes ie ta spr es ce ae — 





DLCNUCKx - GETPSBN SCHEDULE PSB 
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HIPOMAT 1.1 Diagram - 1,7-8,3-1-01 


eat gs 
Input Processing Output 


| FROM CHART 
1.7.8.3 STEP 6 


DLZPST DFHTCA 


a 


DLZSCcD 


USER PARMS 


is ay ne a If SYSTEM schedule call, 
SYSTEMDL 
PASSWORD 


Sesese=s~r= > {o2] If CMXT function, adjust --~--------- 


TCADLII 





SCDSIND2 


a a a a ec 








\ CMXT 
DLZscD 
woe eee nee > If not Rf STOP function 4 SpaamnyRer por oeaaay 
| ee feeot > [7] SCDCMXT 
go to step 7 v/ 
ars >{ [04] Locate DDIR entry 
DLZSYSDS | 
USER PARKS] | |----------- > Verify that the ACB is 
usable 
| DSGINDA 
; DLZpst DSGDMBNO 
cocne- “----> {os} Set function and call DL/I 
Open7t rene PSTPNCTN 
| 
<test> DLZDLOCO 
co" VDL/I OPEN/CLOSE, | 


—_ O07] If not TSTR function go to 
[jest > [07] g 
—/ step 11 


ween ---+--> Load trace module 


| 
oo oe oe 


rr. 
A 
DFHPC LOAD 


PROCSYS SYSTEM CALL INTERFACE HIPOMAT 1.1 Diagram ~ 1.7.8.3.2-01 








a 





eae Routine{ Label Ref Routine} Label Ref 














| ---—~---—--—-—-— 


A PST is acquired and 


initialized, If the password 


PROCSYS 


PROCMXT 
PROICON 
PROCOCR 


PROCSYS SYSTEM CALL INTERFACE HIPOMAT 1.1 Diagram - 1.7.8.3.2-01 
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does not match, the caller is 
abended DLPV. 


62) The value passed by the user is 
| validated and moved to the SCD. 





fou} The DMB name passed by the 
caller is used to scan the DDIR. 


a The ACBS are checked for 
open/close status. 


a The OPEN/CLOSE nodule issues an 
svc 2 and CICS/VS loses control 
for the duration of the call. 


a a a EG i i i 
a ce a a a Se 





Input Processing 





to trace module 


trace module 


Go to step 14 


If not TSTP call go to 


step 14 











SCDTRCNM | | t----------- > Free storage 


ere 


[13] Return 


Eons fies ee 


PrRocSYS SYSTEM CALL INTERFACE 

















oo 


| 
| 
| 
| 
| 
| 
| 
i 


PROCSYS SYSTEM CALL ‘ALL INTERFACE 
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Issue initialization call 


1Cj Store E.P. and name of 


\ 

| 

| 

| 

| 

\ —_ STesaser esos rs > aera call to trace’ 
| SCDT RACE | | 

| 

= 
t 

| 


Routine| Label Ref Notes 





CHART: PROCSYS 
PAGE 2 0F 2 
output 


DLZSCD 


SCDTRACE 


SCDTRCNM 


\,/ 
RETURN TO 
CHART 1.7.8.3 
STEP 8 





HIPOMAT 1.1 Diagram ~ 1.7.8.3.2-02 


Routine{ Label 


HIPOMAT 1.1 Diagram - 1.7.8.3.2-02 















CHART: 
3 PAGE 
Input Processing Out put 
ein ea eS —--—--- -——----, 
j cICS Task | 
Dispatcher 
e 
e \. {| DLZMSTRO: 
CSA beta Messa = 
aetna > [or] Check if DL/I nucleus —_—- DL/I for 
[csaoprra 1 asaded _ ACTIVE 
ecimemnsin cna ll oaded. Pere 
[ | > DLZ0971I 
l, ue 
CSADLI | Message - 
[esantr | foe a ene > Check if MPS already START? WHEN 
: : "i F oer MPS ACTIVE 
— active. End if it is | ty 
{ CICS-DL/I : | —4 {ptz 1012 
1 peter face already active. 
is 
> 
7 | cics 
| (eee 4 | Attach Master Partition —_— DISPATCH 
| ] CHAIN 
Controller. | ae cs 
| ome | 
en | 
ra jy) f 
| [ buzmocsx | 11 | H 
|_ MPC 
*? rampcoo i 
DL/I_ Nucleus | | heartened 
> DEZNUCEx) 
] PTR SCD | { peeenge - 
| | en | Ss 
| | =) 
sce ue | me DLZ0831 
| | scares | Ea | 
ranma Ihe 
\,’ 
CICS Task 
Dispatcher 


a es 


A ap A a eS 


| 


DLZMSTRO - Start MPS Transaction 





Routine| Label 


er 


[07] Message issued if nucleus not 
loaded or not active. 


Message issued if SCDXECB 
indicates MPS XECBs already 


defined. 


DLZMSTRO - Start MPS Transaction 


Licensed Material 





HIPOMAT 1.1 Diagram - 


: Label 





DLZMSTRO 
10F 1 


1.8.0-01 





Ref 


HIPOMAT 1.1 Diagram - 


- Property of IBN 


DLZMPCOO 
MPS Master 
Partition 
Controller 


MPC Stop 
MPC Overview Partition 


Processing 


1.9.0 


MPC MPC ABEND 
Initialization Processing 
1.9.1 1.9.6 


MPC Stop 
MPC Define Transaction 
XECBs Processing 
1.9.2 1.9.7 





MPS 
MPC Wait : Termination 





1.9.3 1.9.8 


MPC Start MPC ABEND 


Processing Exit Routine 
1.9.4 1.9.9 





Diagram 1.9 Visual Table of Contents for MPS Master Partition Controller 
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CHART: 


DLZMPCOO 
PAGE 10F 3 







































Input Processing Out put 
“| From CICS/VS | 
| 
se 
| foley DLZMPCOO : 
\ Add DLZMPCPT 
{ Initialize MPC task. en ed 
seneanec ree 
LJ 
“I 221 )>[DLZAPOOO _} = 
(tes Initialization 
| 7304] | 
{ DLZXCBnC ey [0] [02] Define required XECB's. 
| : 
{ | 
| an See ee [hm = 
| DLZXCBn3 See? MPCDEFIN 
MPC Define hat tal 
| _— XECBTAB 
{ D Entries 
DLZXCBOC 
| DLZXCBO1 
{ — | yt [23] WAITM on Start BPC, Stop 
i Partition, ABEND, and Stop 
| Transaction XECB‘s. 
| 
Las\ = 
| | < toot > arcuate 
| MPC Wait 
| | | 1.9.3 
{ [Dizxcanc a i oreo fo 4] If Start BPC XECB is 
{ \piznpert 4 posted, attach BPC task. 
| Return to Step 3. 
[ a | 
I. Cissi> MPCSTRT 
‘ |mpc start 
Processing 
1.9.4 


DLZMPCOO - MPC Overview 


for] DLZMPCPT is the name of the MPC 
partition table. 


Note - XECBname partition 
identifiers vary depending on 
the number of partitions defined 
during system generation 
(SYSGEN). Por example: 


If two partitions defined: 


BG ID = F1 
F1 ID = F2 
If four partitions defined: 
BG ID = F1 
F1Ip= Fu 
F2 ID = F3 
F3 ID = F2 


DLZXCBn0 is the XECB name to 
start a hatch partition 
controller for a specific 


partition. n is the partition 








DLZMPCOO - MPC Overview 


Routine] Label 












HIPOMAT 1.1 Diagram - 1.9.0-01 
















Ref 


Notes 


Routine} Label Ref 








ac ee a pe 


identifier F1 thru F5, based on 
the key of the partition. 





DLZXCBn3 is the KECB name for 
handling an ABEND situation for 
a specific partition. n is the 
partition identifier F1 thru F5, 
based on the key of the 


partition. 


DLZXCBOO is the XECB name to 
stop the MPS transaction. 


DLZXCBO01 is the XECB name to 
stop a partition. 


XECBTAB is a table in the 
supervisor containing 

information on all XECB's 
defined. 





HIPOMAT 1.1 Diagram - 1.9.0-01 
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CHART: DLZMPCO0O 
; PAGE 2 0F 3 
Input Processing Out put 
aes 
DLZXCB01 —_ \ If Stop Partition XECB is 
[puziceo7 | y 
posted, do stop 
DLZMPCPT processing. Return to Step 
| BG = 
= | | py 
ta hd MPCSTOP 
MPC Stop Partition 
Processing 
1.9.5 
[puzxcen3 lrg iecaccarmmncman If ABEND XECB is posted, 
} do ABEND processing. 
| Return to Step 3. 
tt \ _ 
| <teet> MPCABND 
MPC Abend 
{ Processing 
9.6 
[puzxcpoc ]——, L—____y 07; If Stop Transaction XECB 
pune je 
is posted, do stop 
processing. 
| S 
<test> MPCSTRN 
oe MPC Stop. 
Transaction 
Processing 
1.9.7 
DLZMPCPT 
\ If any batch partition is 
) 
active, go to Step 3. 
DLZMPCOO - MPC Overview HIPOMAT 1.1 Diagram - 1.9.0-0C2 


| 
| 
| 
| 
| 
_ 


-———-— et ~~ 
DLZMPCOO - MPC Overview HIPOMAT 1.1 Diagram - 1.9.0-02 


Notes Routine] Label Ref 
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CHART: DLZMPCOO 
. PAGE 3 OF 3 
Input Processing Output 
ECB List @ peri Lacmncomsanece Terminate MPC task. | 
DLZEPCPT | 
bnemed \, = 
<ieer> MPCEXIT 
_ .JMPS Termination 
1.9.8 
| 
e 
\,/ 
To CICS/¥S 


DLZSPCCO - MPC Overview HIPOMAT 1.1 Diagram - 1.9.0-03 





Notes Routine! Label Ref Notes Routine{ Label Ref 


en ee nnn eee oe rt ree TR er cement erie wetat ct | spencer enteteen, 








DLZBPCOO - MPC Overview HIPOMAT 1.1 Diagram - 1.9.0-03 
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Tnput 
TY ET 


Froa CICS/VS 


e 
ar 
/ 
DL/I Nucleus 


‘ieee 


sco 
scbD 
= eee erememenepacanmmaned \ 
caine 
Hoduie, 4 
scD ) 
eed 
Seen meen rem erent 
core Tanase Veracca \ 
pet || eee 
sco 
raere 7 Fs paeeconnaccs 


DLZMPCOO - MPC Initialization 


Routine 
MPC is attached by the MPS start 
transaction program via CICS/VS§. 
On entry, R12 contains address 
of TCA and R13 contains address 
of CSA. R11 is initialized as 
base register. 


The address of DL/I SCD is 
obtained as follows: 


CSA entry CSAFLA points 
OPL. 


OFL entry CSADLI points 
DL/I interface list. 


DL/I interface 
points to DL/I 


entry at 
nucleus, 


First entry in 
points to SCD. 


DL/I nucleus 


SCDERRMS entry in SCD points to 
the on-line message rsodule. 


DLZMPCOO - MPC Initialization 


92 


Processing 


Output 


















DLZMNPOOO: 


Initiaglize base register. 


Get address of DL/I SCD. 


Get address of on-line 


message module, 


If mPC is already active, 
issue message DLZ101I and 
return to CICS8/VS, waee|> 
Cre “Vs 
Get address of SYSCOM. 


Get number of partitions 
defined during system 
generation (SYSGEN). 


If only one partition was 
defined during system 
generation, issue nessages 
DLZO88I and DLZOO4T, 
Return to CICS/VS. 


(serel > 
crc Ws 


HIPOMAT 1.1 Diagram ~ 1.9.1-01 


Label Ref 
peerrepere | emerenrememen | mere nee ren ae ee erates 
MPC is active if SCDEXCB in 

SCDDBMPS field is set on, See 
Note 7 for message interface 
information, 


Notes Label Ref 





. adenenaenmanammenamemaiaammpeeanmenenuenuel 


The following interface applies 
in all steps where a message is 
issued: 


R1 contains address of 
parameter list, 


R15 contains address of DL/T 
message module obtained from 


SCD (SCDERRMS) 


BALR R14%,R15 


HIPOMAT 1.1 Diagram - 1,9.1-01 
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CHART; DLEMPCOO 
GE 20 
Processing Output Ph ? 
rea Get address of HPC 
[ ae ? partition table, 
5 Get address of CICS WAITH 
RCB list, 
[esexeaes) 
- e 
Ny 
fe Chart 1.9.2 
DLANPCOO ~ MPC Initialization HEPOMAT 1,1 Diagram - 1.9,1-02 


sh sch academe ntenin hacinchddl Samiadiateds 


Wotes Routine! Label Ref Routine{ Label Ref 





1 hen sheitin otietbiaia ims ininmide hit bebininteel nett emeh neil e Bennet Lael Redden teneiel eledateline Bataene nee need ET I I TE ET TTT 
Transaction Work Area is a 
logical extension of the TCA, 





DLZMPCOO - MPC Initialization , BTPOMAT 1,1 Diagram - 1,9, 1-02 
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Input Processing 
From Chart 

e 
e 
eoeeo| a 

ee aaa 

on op Vee 
csfae* 
COMREG N 


RD pentmmmaner etcie 
[be connvay) 


BG CONREG 
















DLZXCBn0 





DLZXCBa3 


NZ 


DLZMPCOO - MPC Define XECB‘s 


Notes Routine{ Label 
[72] The partition identification key 

is used to derive a unique XECB 

name (n) for the Start/ABEND 

XECB's. For example: X'10'=F1, 

X*20'=F2, etc. 


The XECBTAB/DEFINE macro is : 
issued to initialize the XECBTAB 
table with XECB names. During 
the define processing, the MPC 
partition table is initialized 
with the partition ID (F1, F2, 
etc.) and address of ABEND XECB. 
Also, the CICS WAITH FCBlist is. 
initialized with Start IECB 
pointers. 


Processing Step 14: 


A. See Chart 1.9.1, note 7,. for 


message interface 
information. 


B. XECBTAB/DELETE macro issued. 


DLZMNPCOO ~ MPC Define XECB's 


94 





MPCDEPIN: 


Get address of partition 
COMREG. 


Get address of BG COMREG. 


Get partition 
identification key (PIK) 
of MPC partition. 


Define (XWAIT) Start/ABEND—-~—~—————4 
XECB's for all partitions 
defined during systea 
generation (SYSGEN) except 
MPC partitions. 


if 





Output 


XECBTAB 
Entries 


— 


error return on define: 


Issue message DLZ082I. 


Delete any XECB's 
defined, 


Go to Chart 1.9.8, step 
26. 


MPECDE 
1 OF 


¥ 
2 


IN 





HIPOMAT 1.1 Diagram - 1.9.2-01 
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Routine| Label 
SERIA || [SAO SAITa OR eae nee RE Ene ea eer ceoecereraneeies 


HIPOMAT 1.1 Diagram ~ 1,.9.2-01 


Ref 








CHART: MPCDEFIN 
; PAGE 2 0F 2 
Tuput Processing Out put 
XECBTAB 
1, [75] Define (XPOST) Stop eee ery Entries 
—_——/ . EA AE RARER NTS ee 


DLZXCBO0 
DLZXCB01 


DLZXCBn0- 


DLZXCBn3 


DLZMPCOO ~- BPC Define XKECB's 


Notes Routine 

(15] The XECBTAB/DEFINE macro is 
issued to initialize the XECETAB 
table with XECB names. The Stop 
XECB's are defined as XPOST so 
that they can be posted during 
abnormal systes termination. The 
CICS WAITM ECB list is 
initialized with the Stop ECB 
pointers. 


Processing Step 16: 
See Chart 1.9.1, Step 7, for 
message interface 


information. 


XECBIAB/DELETE macro issued. 


Set flag bit SCDXECB at location 
SCDDBMPS. 


B. ABEND exit is established to 
routine ACPABEXT via the 


DPHPC TYPE=SETXIT. 





DLZMPCOO - MPC Define XECB's 








XECB‘s, 


error return on define: 


Issue Message DLZ082I. 


Delete any XECB‘s 
defined. 












Cc. Go to Chart 1.9.8, step 


26. 
Set MPS XECB indicator in 
scp. 


Issue MPS started 
message DLZ093I. 


A. 


B. Set ABEND routine exit 


for the naster 
partition controller. 


Label Re 
: HIPOMAT 1.1 Diagram - 1.9.2-02 
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To Chart 1.9.3 


BIPOMAT 1.1 Diagras - 1.9.2-02 


Routine} Label 


Se cainhaninanmimmaneeds fecunsenannemmanemenmemndl 


Ref 


a at CN 





Tt 


ww 
ay 
yy 


MPCWAIT 
10F 1 


bie 


Input Processing Output 


ee ———————— 





MPCWAIT: 


— 







| 


DLZXCBnc 


ae \ Issue WAITM on XECB's ECB List $ 


- eee 


Start 
Routine + 


DLZMPCTP 
Entry + 


DLZxcBnC 


Start 
Routine 


DLZMPCPT 
t 





Stop 
Transact 
Routine +| | 


DLZXCBO1 


stop. 
Partition 
Routine 







=o) 
DLZXCBn3 


ABEND 
Routine + 


| 
| 
| es 
{ 
| 
: 
| 


: 


or 


DLZMPCOO ~- MPC WAIT =: HIPOMAT 1.17 Diagram ~ 1.9.3-01 











Routine| Label Ref Notes Routine 








— 








The XECB'S are posted on the 
following conditions: 





The ABEND XECB pointer is only 
placed in the ECB list when the 
BeC attach is unsuccessful. See 
Chart 1.9.4. Step 19. 


DLZXCBn0 


DLZMPIOO - Activate BPC fora 
specific partition. 


CICS macro: 
DLZXCBO00 


DFHKC TYPE=WAIT . 
DLZMSTPO ~ Terminate MPS. 


DCI=LISst 
DLZXCBO1 


When control is returned, MPC 


ee 


DLZBPCOO - Normal batch EOJ; 


scans the ECB's to determine ret . 
error conditions in BPC or 


what action is to be taken. : 
batch partition. 


DLZODPC1 - ABEND. 


DLZXCBn3 


DLZMPIOO - BPC attach 
failure. 


A a A An 





| srmapere — MPC WAIT HIPOMAT 1.1 Diagram - 1-9.3-01 


96 Licensed Material - Property of IBM 







Input Processing 
MPCSTRT: 
Cos tee ae eS ee 
SIRERY igen nero | , i : 
DLZXCBnC 1 y [19] If Start XECB is posted 


Start 
Routine 4+ 


DLZMPCPT Clear Start XECB. 
Entry 


Set parameter list 
address. 


partition. 
= 


—— I") D. If BSPC attach is 
{tc AKCRC [rcaxcrc  |———_,} 


successful: 


4. Clear BPC ATTACH 
ECB. 


2. Go to Chart 1.9.3, 
Step 18. 


& 
. 
— 


{DLZxcBn1 arene! E. Issue XECB CHECK on 
Batch Initialization 


XECB. 


F. If error return on 
CHECK: 


1. Issue message 
DLZ0821. 





| 
| 
| 
| 
| 
, 
| 
| 
| 
| 
| 
| 
| 
| 
{ 


LZMPCOO - - mPC Start Processing 


Routine| Label Notes 





[19] XECB is posted by Batch 
Initialization - DLZMPICO. 


i | 
eH 
| 
| 
| 


B. TCAKCFA field is initialized 
with pointer to parameter 
list. 


c. CICS macro: 


DFHKC TYPE=ATTACH, 
FCADDR=pointer to address of 
MPC partition table entry. 


| 
| 
| 


D. A check is made for X'31' in 
TCAKCRC which indicated 
ATTACH failure. 


E. Beginning at this point as 
much recovery is attempted on 
a BPC ATTACH failure to 
clean- “up the Batch and MPC 
task without operator 
intervention. 


The XECBTAB/CHECK macro is 
issued to obtain address of 
Batch Partition's XECB. 


= | | 


LZMPCOO - MPC Start Processing 








Om ne nn tn ne 
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CHART: MPCSTRT 
PAGE 1 0F 2 


Output 


DLZMPCPT 





jy 
Attach BPC for meee 


Ly 


Se ce a cS sy 


HIPOMAT 1.1 Diagram - 1.9.4-01 


Label Ref 


Routine 
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CH 
PA 


ART: MPCSTRT 
. GE 2 OF 2 
Input Processing Out put 























2. Indicate partition ———-—---—-—~ » DLZMPCPT 


Fn 


inactive. 


3. Go to Chart 1.9.3, 





step 18. 
bBo eiese Andi cater an Stee | DLZMPCPT 
partition table. 







ECB List 4 aE) 










H. Update CICS WAITM list SPARE I 
=) 


with ABEND XECB. | SaaS > 


xcBNC 4 
xcB00 
XCBN3)  # 





I. XPOST Batch 
Initialization XECB. 











J. If error return on 
XPOST: 


1. Issue message 
DLz084I. 


2. Indicate partition 
inactive. 


3. Delete error 
indicator. 


4. Remove ABEND XECB 
from CICS WAITM list. 





XCENO 4 | 
Xcb00 
X'FF? 





[EcB List ap aenconeoecces) 


| 


K. Go to Chart 1.9.3, Step 
18. 







a ne ater 


DLZMPCOO ~ MPC Start Processing HIPOMAT 1.1 Diagram - 1.9.4~-02 





ae ne ee 


Notes Label Ref 


DLZMPCOO - KPC Start Processing ; HIPOMAT 1,1 Diagram - 1.9.4-C2 
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Notes Routine] Label Ref 


















F. See Chart 1.9.1, Note 7, for 
message interface 
information. 


H. The CICS ECB List is updated 
with the ABEND XECB pointer 
to provide recovery. 


I. The XPOST macro is issued to 
notify Batch Initialization 
of BPC ATTACH failure. 


J. See Chart 1.9.1, Note 7, for 
message interface 
information. 





Input Processing Output 


en antenatal 





MPCSTOP: 
gig baraseereas) I£ Stop Partition XECB 


So ig eaasnrimens 





DLZXCBO1 


Routine as 





posted: 









A. Clear Stop XECB. 


B. Scan table for specific———-__-_! » DLZMPCPT 
entry. BG 
Fo 


Cc. Set partition inactive ————————— 


indicator, | | 
D. Clear partition table 


entries. 


DLZMPCPT E. If Stop Transaction 






BG indicator set: 


XECBTAB 


1. Delete inactive Entries 


t 
EIS see | 
Start/ABEND XECB's. =) 


2. If error, issue 
| ; message DLZ082I. 

, 3. If all batch 
a. | 


| 
: 
| 
! 





inactive, go to Chart 
1.9.8, Step 23. 


F. Go to Chart 1.9.3, step 
18. 











te 


DLZMPCOO ~~ MPC Stop Partition Processing HIPOMAT 1.1 Diagram - 1.9.5-01 


niente arene es ct 


| Notes Routine} Label Ref 





Routine} Label Ref 


| a a tee, re 


20] XECB posted by BPC (DLZBPCO0Q) or 
Task Termination (DLZODP01). 








es 








- A scan is done on every entry 
in the partition table to 
avoid losing a stop partition 
indication on a double post. 


. XECBTAB/DELETE macro is 
issued. 


Set indicator in MPC 
partition table that XECB's 
have been deleted. 


See Chart 1.9.1, Note 7, for 
message interface 


B 
E 
DLZMPCOO ~- MPC Stop Partition Processing HIPOMAT 1.1 Diagrag - 1.9.5-0 
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information. 


ee ne A A ee A 





Input Procedsing 


Lo MPCABAP: 


Diaxcan3 
BEND 
Act ine , 











Clear ABEND XECB. 


Reset ABEND indd¢ators dmninnimuniul » pLZapcer 
= 


Reset ertor codes. ‘nanan ilaasinasia 


: 
Indicate paktition (ae 


inactive, | 


Remove ABEND XECB from taints nt) 


eres warts list. 






60 to Chart 1.9.3, Step 
18. 





DLZNPCOO ~ APC ABEND Processing AIPOMAT 1.1 Diagram = 1.9,6+04 





21] XECB ig posted by Batch 
Initialization (DLZAPIOO)on BPC 
ATTACH failure. 





DLZHPCOO - Apc ABEND Processing HIPOMAT 1.1 Diagram - 1:9.6-01 
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T:, MPCSTRN 
1 0F 1 


Input ; Processing Output 







MPCSTRN: 


‘ [22] If Stop Transaction XECB 
posted: 





A. Clear Stop Transaction 
XECB. 


















B. Set Stop Transaction FF) DLZMPCPT 


indicator. 


C. Delete Stop Transaction 


XECB. | 


D. If error return ona ——) 
DELETE, issue message 
DLZ08 21. 


BE. Delete Start/ABEND 
XECB's for inactive 
partitions. 


F. If error return on 
DELETE, issue message 
DLZO82I. 


G. If any batch partitions 
are active: 


1. Issue message 
DLZO86I. 


2. Go to Chart 1.9.3, 
Step 18. 





DLZKPCO00 - KPC Stop Transaction Processing HIPOMAT 1.1 Diagram - 119.7-01 





ae a aarreiael ee amen eect 


Notes Routine{ Label Ref 
ten nema a a gata enyn attain a eens | anette | ommmenee neem | mek ipee enie 


a a ae 


DLZHPCOO - APC Stop Transaction Processing HIPOMAT 1.1 Diagram - 1¢9.7-01 
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Notes Routine| Label Ref 








{22} XECB posted by Stop Transaction 
(DLZMSTPO). 








C. XECBIAB/DELETE macro issued. 


D. See Chart 1.9.1, Note 7, for 
message interface 
information. 


E. XECBTAB/DELETE macro issued. 


Set indicator in MPC 
partition table that XECB‘ts 
have been deleted. 


F, See Chart 1.9.1, Note 7, for 
message interface 
information. 


G. See Chart 1.9.1, Note 7, for 
message interface 
information. 


CHART: MPCEXIT 
PA or 


AR 
: GE 1 1 
Input Processing Output 
(Centimeter cian tlameintemnmtmntinmelaeenarnednemnesiet me 

















MPCEXIT: 





—_ sy XECBTAB 
DL2XCB01 area » [23] Delete Stop Partition sy Entries 
XECB. La 
peer aror arena ey 
If error return on delete, 
issue message DL20821. 
ScD 


Reset MPS XECB indicator 


[25] Eonar 
in sco. 7 a eS 
Issue MPS stopped message 


DLZ094I, 





Return to CICcs. 


[esses | 
e 
\,/ 
To CICS/VS 





DLZMPCOO - MPS Termination HIPOMAT 1,1 Diagram - 1.9.8-01 
















Routine} Label Ref 








Notes 
[23] XECBTAB macro TYPE=DELETE 
issued. 


See Chart 1.9.1, Note 7, for 


[2] 


message interface information. 


Bit SCDXECB at location SCDDBMPS 


is turned off. 
See Chart 1.9.1, Note 7, for 
message interface information. 
CICS macro: 
OPHPC TYPE=RETURN 

D 


ff] 


N 
~ 





Notes Label Ref 


LZMPCOO - MPS Termination HIPOMAT 1.1 Diagram - 1.9.8+01 
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Input Processing 


MPCABEXT: 


Reset the MPS XECB 


indicator. 








Delete start transaction, 
DLZXCBO0 





stop transaction, start 
and ABEND XECB's. 


If any BPC's are active, 
post corresponding BPC's 
XECB. 


Set information for 
message DLZ1041. 


[32] Issue message DLZ1041. 


[33] Return to CICS/VS. 


DLZMPCOO - MPC ABEND Exit Routine 








Notes Routinej Label Ref 


od 

















Note: Entry to this routine is 
from CICS/VS when linkage was 
established through the DFHPC 
TYPE=SETXIT in the MPC define 
XECB routine. 


Bit SCDXECB in SCD at location 
SCDDBMPS is turned off. 


XECBTAB macro TYPE=DELETE is 
issued. 


XECBTAB macro TYPESCHECK is 
issued. Posting of the XECB is 
not XPOST. 


(31] The TCAPCAC field contains the 
CICS/VS ABEND code. If this code 
is ‘ASRA*", the TCAPCPSW field 
contains the program interrupt 

Psa. 








Return is made to CICS/YS via 
DFHPC TYPE=ABEND, ABCODE=DHPC. 


DLZMPCOO - MPC ABEND Exit Routine 


Licensed Material 





- Property of IBM 


T: BPCABEXT 
10F 1 


Output 


SCDDBMPS 


XECBTAB 
Entries 


DL2ZXCBn2 





HIPOMAT 1.1 Diagram ~- 1.9.9-01 


Routine] Label Ref 
(os aemeteinenn atenemal 


HIPOMAT 1.1 Diagram - 1.9.9-01 
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DLZBPCOO 
MPS Batch 
Partition 

| Controller 1.10} 


BPC Overview 


1.10.0 


BPC 
Initialization 





BPC Wait 


1.10.3 











BPC Batch 
Partition 
ABEND 
Processing 1.10.4 








BPC 
Application 
Program Call! 
Handling 1.10.5 


BPC EOJ-TERM 
Call Processing 
1.10.6 


BPC 
Termination 
1.10.7 


BPC/MPC 
ABEND Routine 
1.10.8 





Diagram 1.10 Visual Table of Contents for MPS Batch Partition Controller 
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T 


os 


bibg 


DLZBPCO00 
10F 2 


Q» 


Input Processing Output 
———___-_____—__, 
[ {From CIcs/vs_ | 








* DLZBPCO00: 


4 [01] Initialize BPC task, Chart 
PARMLIST -__-— 
PTR 1.10.1. 


SELES) Set-up and issue DL/I 











SR ERAT DLZMPCPT 








DLZXCBN1 scheduling call, Chart ao 
PSB-NAME 1.10.2. 
PTR 
ORES aS | 
Post batch partition. Se) 
—-_--—_————1 DLZXCBN1 
| 
fos] On error, go to Step 15. | 
Wait for batch request ed 
[DLZzxcBN2 EASTER ~ a RE NEP SAREE ECB LIST 
{DLaXCEN3 Chart 1.10.3. PTR 
| DLZXCBN3 


rr | 
| If abend posted, go to 
Chart 1.10.4. 


| 


[DLzxcBn3 
| 
ae 


If EOJ indicator set, go 
to Step 11. 


NZ 
[S| 
x 


PCT mR | 
[DLZxcBN2 —— 


DLZXCBN1 
EOI 


bal 


\ [os] Set-up and issue DL/I 
/ call, Chart 1.10.5. . 


DLZXCBO1 


CALL PARM 
LIst 





Se PSs ln iene eens Ua ee 


DLZBPCOO0-BATCH PARTITION CONTROLLER OVERVIEW HIPOMAT 1.1 Diagram - 1.10.0-01 





rc 








Notes Routine} Label Ref Notes Routine{ Label Ref 


[os | Version of the DL/I call is 
based on language of the 


—— 


DLZMPCPT = Name of MPC partition 
table. 








¢ application progran. 
DLZXCBN1 XECB name for batch 


partition, where N is the 
partition ID F1 thru F5 based on 
the key of the partition. 


DLZXCBN2 = XECB name for a BPC 
for a specific partition, where 
N is the partition ID F1 thru F5 
based on key of the partition. 


DLZXCBN3 = XECB name for 
handling an abend condition for 
a specific partition, where N is 
the partition ID F1 thro F5 
based on key of the partition. 


| 02] Assembler version of DL/I 
scheduling call issued on behalf 
of the batch partition. 


fo3] XPOST macro. 


fos} CICS WAIT macro - DFHKC 
TYPE=WAIT 





5 sc a oss : 
DLZBPCOO-BATCH PARTITION CONTROLLER OVERVIEW HIPOMAT 1.1 Diagram - 1.10.0-01 


Licensed Material - Property of IBM 105 


Input Processing Output 


——_ = 


Post batch program cediest a) 


eee eee 
handler, Chart 1.10.6. 


DLZXCBN1 


Go to Step 5. 


Post batch program ey 

ey DLZXCBN1 
handler, Chart 1.10.6. 
Clean up BPC task, Chart 


1.10.7. 


Return to CICS. | 


means 
Clean up BPC task, Chart To ae 


| 
__ —_ eee, 


DLZBPCOO- ~BATCH PARTITION CONTROLLER OVERVIEW HIPOMAT 1.1 Diagram - 1.10.0-02 


mic 


ae @ & 


Return to CICS - ABEND. 


ae a I Ce ee Se ea 








} Notes Label Ref Notes 


ees ———— 


Routine 














EB 


us 


CICS macro DFHPC TYPE=RETURN. 


[13] 


15} CICS macro DFHPC TYPE=ABEND. 


{ 


Label Ref 


ZBPC00-BATCH “PARTITION CONTROLLER OVERVIEW j HIPOMAT 1.1 Diagram - 1.10.0-02 





: 
i 
| 
| 
| 
| 
| 
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Input Processing Out put 
pa 





ee ie en ey 








DLZBPCO0: 
Gi Initialize base register 
PARM LIST PRPC (01) g ’ 
PTR etc. 
Set MPCPT address in Se ema 
——| 


5 a Transact 
transaction work area Work Area 


Set partition active ly 


indicator. Le DLZMPCP1 | 
FN 
ed /03] Issue CHECK on batch init 
DLZXCBN1 —_—  / fees 


[oa] If error return on CHECK: 


A. Issue message DLZ082I. 


B. Go to step 30, Chart 
1.10.7. 





_—_—_o HN" DEFINE (XWAIT) BPC XECB. 
[DLZxCRN2 vA ( ) XECBTAB 
ENTRIES... 





DLZBPCOO - BPC Initialization HIPOMAT 1.1 Diagram - 1.10.1-01 


Notes Routine} Label Ref Routine] Label | Ref 


BPC is attached by the MPC via 
CICS/VS. On entry, register 12 
contains address of the TCA and 


a a te —_ 


register 13 contains address of 
CSA. Register 11 initialized as 
base register. 


The MPC partition table pointer 
(DLZKPCPT) is obtained from the 
TCA whose pointer is in 
TCAFPCAAA. 


The partition ID, and the MPCPT 
beginning address are stored in 
the transaction work area at 
locations: 


TWABPCID 


TWAMPCPT 


XECBTAB/CHECK macro is issued to 
obtain the address of the batch 
init XECB. 


XECBTAB/DEFINE macro is issued 
to define the BPC XECB for a 
specific partition. 


DLZBPCOO - BPC Initialization HIPOMAT 1.1 Diagram - 1.10.1-01 
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CHART: DLZBPCOO 
PAGE 2 OF 


Input Processing Out put 





If error return on DEFINE: 


A. Issue nessage DLZ082I. 


B, Set error indicator. 


DLZMPCPT 
Cc. Issue XPOST on batch 


init XECB. 


D. If error return on 
DLZXCBN1 
XPOST: 


1. Issue message 
DLZ084I. 


2. Go to Step 30, Chart 
1.10.7. 


Wait on ABEND XECB. 
DLZMPCPT ECP PTR 
Go to Step 30, Chart 
1.10.7. 
[ouzxcan3 | 
[07] Set up wait ECB list. 
XCBN2 PTR XCBN3 PTR 
HEX PF 
[pxgrcon2 a 


[pegrcen> | 


| 
| 
| 
| 








ee a 


eee. | 


DLZBPCO0 - BPC Initialization HIPOMAT 1.1 Diagram - 1.10.1-02 


| tes Routine| Label Ref Notes Routine} Label 
{{05] C. XPOST on the batch init XECB 

is issued so that batch init can 

clean up the batch partition on 














error condition. 
E. CICS WAIT. Address of ABEND 
XECB is obtained from the MPC 


partition table, 


DFHK TYPE=WAIT, DCI=SINGLE 


Address of the ABEND XECB is 
obtained from the MPC partition 


table (DLZMPCPT). 





DL2BPCO0 - BPC Initialization g HIPOMAT 1.1 Diagram - 1.10. 1-02 
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Input Processing Output 












DLZBPCO0: 


- teemteemc trnetnennnnmenaemensnewneeh Get PSB name from batch 
DLZXCBN1 > rae 
ape anmantennatniabitsenteisaiinennh init. 
PSB NAME 


Set up DL/I scheduling 








> r 
PARM COUNT [coowr | 
PTR : 







call. 
one | > 
PCPM 
DW eae 
Issue DL/I scheduling rareraraeressmaecd)) TEST 
i eeeeeemenmmnnn | 
call. 





TCA 
in. +) [) If error return on DL/I 
scheduling call: 


A. Set error indicator. 






DLZMPCPT 
FN 





B. Set error codes. 


[12] Set the TCA pointer for 
batch init. 





DL2BPCOO = BRC scheduling Call HIPOMAT 1.1 Diagram - 1.10.2-01 


Label Ref 


DLZBPCOO - BPC Scheduling Call ; HIPOMAT 1.1 Diagram - 1.10.2-01 
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ae es ee eae 


fotes Routine 
Asseabler version of the DL/I 
scheduling call is used. 


a mr cr era te er rt A eh ei ae ee 


Notes Routinef{ Label Ref 

















411 B. Error codes are obtained fron 
-TCA (TCAPCTR, TCADLTR). 





Input Processing Out put 


se ce a hn aed 








Issue XPOST on batch init ESERIES NOTE T 
ae eet [DLZXCBNT | 


XECB. 
[14] If error return on XPOST: 
A. Issue message DLZ084I. 


B. Go to step 28, Chart 
1.10.7. 


- 


DLZBPCOO = BPC Scheduling call HIPOSAT 1.1 Diagram ~ 1.10.2+02 























i a a 


Notes Routine| Label Ref Routinef{ Label Ref 
ars i OO nee a em ORAM SSE TR, P [ARRaSeHeSe een ENTREE a OPO E Rca ET SRE TET ERY (St Pe 
[13] XPOST is issued on batch init 
XECB to notify batch init that 
DL/I scheduling call has been 
completed, 
DLZBPCO0 - BPC Scheduling Call * HIPOMAT 1.1 Diagram - 1.10.2-02 
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Input Processing 


DLZBPCOO0: 


—_ Issue WAITM on BPC/ABEND 
DLZXCBN2 — [15] TEC - 


A. If MPC abended, go to 
Chart 1.10.8, step 37. 


DLZBPCOO - BPC WAIT 


batch partition. 


EOJ has been encountered in 
batch partition. 


DLZXCBH3 
An abend condition has been 
encountered in the batch 
partition. 

CICS MACRO: 


DFHKC TYPE=W@AIT, DCI=LIST 


ECB list address pointer is 
placed in TCATCEA prior to 


issuing WAIT 


When CICS returns control 
after a WAIT, BPC must scan 
the ECB list to determine 


DLZBPCOO - BPC WAIT 








Routine| Label Ref 
XECBs are pested for the 
following conditions: 
DLZXCBN2 
Process call on behalf of 





fee 


Out put 


HIPOMAT 1.1 Diagram ~- 1.10.3~01 


Routine{ Label Ref 


which ECB is posted. 


Bit SCDXECB is tested in 


field SCDDBMHPS of the SCD. 


HIPOMAT 1.1 Diagram ~- 1.10.3-01 
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CHART: DLZBPCOO 
. PAGE 10F 1 
Input Processing Out put 


| 





DLZBPCO0: 





\ If ABEND XECB posted: 


DLZXCBN3 





A. Clear ABEND XECB. 


B. Go to Step 28, Chart 
1.10.7. 


— 


ae Sa Sr ee ee ea 
! 
I 
| 
nr re a a 
a a ee ra 














DLZBPCOO ~- BPC Batch Partition ABEND Processing HIPOMAT 1.1 Diagram - 1.10.4-01 
| Notes Routine ee ee Ref Routine Label 
t se ite dh is aca ee ee 
{ (767 Entered when abend condition has 
been encountered in the batch 
partition. 
DLZBPCOO - BPC Batch Partition ABEND Processing HIPOMAT 1.1 Diagram - 1.10.4-01 
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ge 


DLZBPCOO 
1O0F 2 


de] 
ay 
bh 


Tnput Processing Out put 

























DLZBPCOO: 





\ Clear BPC XECB. 


“ 





DLZXCBN2 | 











If EOJ posted: 
DLZXCBN1 » P 
E0d 
A. Go to Step 26, Chart 
4.10.6. 
Set MPS indicator. 
PST 


Determine application 
program language. 


[21] If PL/I: 


A. Issue PL/I Version of 
DL/I call. 





FT, 


foLzxcan1 j—— 
PARM LIST | 
> 
ee 
N\ 
vA 


DLZBPCOQ - BPC Application Program Call Handling HIPOMAT 1.1 Diagram - 1.10.5-01 


Notes Routine! Label Ref 
{19] Address of the PPST is obtained 

from the PST (PSTPREAD) 
Address of PST is obtained fron 


B. Go to Step 23, Chart 
1.10.5. 


[22] Issue Assembler/COBOL 
version of DL/I call. 











Routine} Label Ref 














the TCA (TCADLIPA). 


{21 Entry point in the language 
interface programs is PLITDLI. 


Entry point in the language 
interface program is ASMTDLI or 
CBLTDLI. 





DLZBPCOO - BPC Application Program Call Handling HIPOMAT 1.1 Diagram - 1.10.5-01 
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Input Processing Output 


Issue XPOST on batch 
fgg DLZXCBN1 
' partition XECB. 





error return on XPOST: 


Issue message DLZ0841I. 


Go to Step 28, Chart 
1.10.7. 


to Step 15, Chart 
1.10.3. 





DLZBPCOO - BPC Application Program Call Handling HIPOMAT 1.1 Diagram - 1.10.5-02 


| ocee Notes Label Ref 


23{ XPOST issued on the batch 
DLZBPCOO - BPC Application Program Call Handling BIPOMAT 1.1 Diagram - 1.10.5-02 


partition XECB to notify that 
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Routine} Label Ref 








the call on behalf of the batch 
partition has completed. 


[25] Return to WAITM on BPC/ABEND 
XECBs. 











CHART: DLZ2BPC00 
* PAGE 10F 1 
Tnput Processing Output 
DL2ZBPCO0: 
Issue XPOST on batch =a 
ong Sopenanentaumeennnmenmmeems | DLZXCBN1 
partition XECB. 
If error return on XPOST: 
{ A. Issue message DLZ0841. 
B. Go to Step 28, Chart 
1.10.7. 
. DLZBPCOO - BPC - EOJ - TERM Call Processing HIPOMAT 1.1 Diagram ~ 1,.10.6-01 


Notes Routine| Label Routine] Label 
[28] XPOST the batch eutch Aa cion Tew XECB 

in to notify the batch partition 

that end-of-job processing has 

completed, 





DLZBPCOO - BPC - EOJ - TERM Call Processing HIPOMAT 1.1 Diagram ~- 1.10.6-01 
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[DLzxcBN2 


een: 


DLZBPCOO - BPC Termination 





Notes 
XECBTAB/DELETE macro issued to 
delete the XECBNAME from the 
XECBTAB table. 








This is not an XPOST since XECB 
was DEFINED in this partition. 


Ei 


CICS macro: 


DFHPC TYPE=RETURN 


ABEND indicator TWABPCOK is set 
on in field TWAMPSFG in the 
transaction work 
indicate BPC ABEND processing 
was successful. 


area to 


CICS macro; 
DFHPC TYPE=ABEND ABCODE=DBPC 


DBPC ABEND code defines BPC 
failure for CICS/VS dump ID. 


DLZBPCOO - BPC Termination 
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Processing 











1 (28) 


Boo & B 





















Routine 


ee 


DLZBPCO0: 


Label 





Out put 


Delete BPC XECB. 


If error return on DELETE, 
issue message DLZ082I. 


Set stop partition a | . 
aero re meneanemmmarccaremeran, DLZMPCPT 
indicator. | Y ooo 


Post stop partition XECB. ——L, 


Issue message DLZ1041. 


DLZXCBO1 


Tf abnorswal tersination, 
go to Step 35, 


Return to CICS/VS. 

feowet > 
Set ABEND indicator in To fcssvs 
transaction work area. 


Return to CICS/VS - ABEND, 


\y/ 
To CICS/¥S 





HIPOMAT 1.1 Diagram = 1,.10,7701 


Routine Label 
inedendes sini leneaieetaeienemnteenieenen meee Sspumearis saad 


RIPOMAT 1.1 Diagram - 1.10.7°01 


Ref Notes 


s enmmmmmneend 
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Input Processing Out put 
od ; 
———_— 9 | [37] Delete the BPC's XECB. 
DLZXCBN2 7 XECBTAB 
ENTRIES 


MPCABEND: 





Post the batch partition 
XECB, 


DLZXCBN1 


Set abnormal condition for 
message DLZ1031. 


Go to Chart 1.10.7, Step 


32. 





DLZBPCOO - BPC/MPC ABEND Routine HIPOMAT 1.1 Diagrasa - 1.10.8-01 








Notes Routine| Label Ref 
The XECBTAB macro TYPE=DELETE is 
issued. 


XPOST is issued on batch 


Notes Routine] Label Ref 
partition XECB (DLZXCBN1). 





DLZBPCOO ~ BEC/MPC ABEND Boutine HIPOMAT 1.1 Diagrams - 1.10.8-01 
Licensed Material - Property of IBM 417 


DLZMPI00 













MPS Batch 
1.11 


DLZMINIT 
MPS Batch 
Initialization 

1.11.1 


DLZMTERM 
MPS Batch 

Termination 
1.11.2 





















DLZMPRH 
MPS Batch 
Program Request 
Handler 1.11.3 








DLZMMSG 
MPS Batch 
Message Writer 

1.11.4 


DLZMABND 
MPS Batch 
ABEND 
Processing 1.11.5 


Diagram 1.11 Visual Table of Contents for MPS Batch 
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CHART: DLZMINIT 
PAGE 1 OF 2 


Input Processing Output 
DOS/VS 


Ps \. | DLZMINIT: 


| 
many 4 


_ 
| 


01} Get input parameter and 
UPSI scan data. Chart 1.11.1.1. 


< teat > ppuanase a 


NZ Vv 








ce 
. Write message 
or \ WN 7.11, af 
| £0 rs 
| ( 4 Sst 
air erat H U—// { 
SYSIPT SSes==> 
SYSLOG 
a Soar eens) Load application program. 
Sac Ea 
Pie ee 4 
\ / f 
a = peasants [03] Get partition identifier. DLZXCBn3 


DLZxcBn1 


Application Chart 1.11.1.2 

Program ~- —o 

Core Image DLZXCBn2 

Library —_—_—oOoOoS 

DLZXCBn0 
PTN COMREG sie COMREG 
| Cano eet emrareas = 
Wake up online partition 
DLZXCBn1 ec P F ; 





and wait for it to 


initialize. Chart 1.11.1.2 





(a i ea a a a A a es A a a a a a a 


Ce | 
LZMPIOO - MPS Batch Initialization HIPOMAT 1.1 Diagram - 1.11.1-01 


Notes Routine| Label Ref Routine{ Label Ref 








for] Read from SYSLOG or SYSIPT 
depending on UPSI bit C. 


fo3] Modify 'n' in XECB names based 
on partition running in. 


XPOST XECB DLZXCBnO and XWAIT on 
DLZXCBn1. 


a 


LZMPICO - MPS Batch Initialization = i. HIPOMAT 1.1 Diagram - 1.11.1-01 


a ce a a A Pa 





orto ee 
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T 


Wa 
be rr 
Aye 

Ty 


DLZNINIT 
20F 2 


tig 


Taput Processing Out put 


Z Complete initialization. SCE Lae 
Chart 1.11.1.3 a) 


Exit to user application 


progran. 


s—\ 
beats [leek Program 
Process using DL/T 


jf @oeeoesoe 
e 





\y/ 
DLZMTERM Chart 
1.11.2 





Notes Routine} Label Ref Notes Routine] Label Ref 
{ {05} An application program runs as a 


DLZXCBn2 is xPOSTed and DL2xCBn1 
is deleted. 


DLZBP1I00 - MPS Batch Initialization 7 HIPOMAT 1.1 Diagram - 1.11.1-02 





DLZMPIOO - MPS Batch Initialization HIPOMAT 1.1 Diagram - 1.11.1-02 
subroutine of DL/I 

initialization. 
At normal termination XECB 


Ne a ee A A A i ce A A A 
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Input Processing Out put 


cH 


i Chart 1.11.1 
Step 1 


[ELo. DLZMINIT: 
eeoe! > 


S aieteteteetetesied > Decide where to get input. 





UPSI 


| ne | [ ene | 
</{eo|> DLZMMSG 
\cn/s 





Write meeeagS 


1.11.8 


‘\ | {2} Read pesos and scan >) 


| 

_ 

SYSIPT _ Cs 
lai pees is valid, go to | 

| 

| 

| 

| 

| 


oo If data is not valid, try 
for more data from 


| 
na 
La] 
2) 
ia 
°o 
@ 

— 


operator. 





7i—N 
| < feel >| DLZMMSG 
\om/ Rater fe oP ek ae eee Ge 
Write sonsage 
211.4 
» Return to Step 2 to reread 
data, or end. 


eeee| > 


DOs. 





Save program name and PSB >) DLZXCBnt 


name address. 


PSB name 4 
Prog name 





oe - MPS Batch Initialization HIPOMAT 1.1 Diagram - 1.11.1.1-01 





Notes Routine[ Label Ref Notes Routine| Label Ref 





a 1] If UPSI byte bit 0 is on, input 
i is from SYSLOG. Send message 

DLZ010A to have operator enter 
! 








information. 


If UPSI byte bit 0 is off, input 
is from SYSIPT. 


Read parameters from SYSIPT or 


[s 


SYSLOG. Print parameters on 
SYSLST. 


ey 
pel 


If end of file on SYSIPT, send 
message DLZO14A. 


If data invalid, send message 


DLZO87A. 
Read operator reply to decide if 


more parameters provided or if 
job is cancelled. 
The pointers to program name and 
PSB name are kept in area behind 
XECB used for communicating with 
the online partition. 
eee sa ett De ie ate 2 Se Secret 


DLZMPICO - MPS Batch Initialization HIPOMAT 1.1 Diagram - 1.11,1.1-01 


[a 
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Input Processing Out put 









Load application progran. 








a 
Qw 


HART: DLZMINIT 
PAGE 2 0F 2 


* rd End processing if program 
Application not found. 
rogram — 
vepe = Image y % 
*Y gael DLZMMSG 
Write nessage 
211.4 
eeeooeeee 
e 
\y7 
Chart 1.11.1 
Step 3 
DLZMPI00 - MPS Batch Initialization HIPOMAT 1.1 Diagram - 1.11. 1.1-02 











= a 
Notes Routine|{ Label Notes 
08| If program was not found, send 

message DLZ012I and cancel job. — 


= 
— 


oo ——— Se 
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Label Ref 
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CHART: DLZMNINIT 
PAGE 1 0F 2 
Input Processing Output 


Chart 1.11.1 
Step 3 

























ha Saneis DLZMINIT: 
r Get partition identifier =) 
| and change XECB names. 
is COMREG 

5 Ensure required MPC XECBs Eee et ee —? aoe 
are defined and end if ] DL2xcBn3 4 

not. ‘coe 

DLZXCBnC [tmnt DOS/VS 

DLZXCBn3 Sissel? DLZMMSG 








Write message es 


1.11.4 


scenepemanenemnmenpmaedl 


{XECB Table 


XECB Table 


DLZxCcBnt1 


Define XECB for batch ——————"') 


; eee enna ey 
partition and end on t 
\ 
error. oceoe| > 
DOS/VS 


eed 
eet > DLZMMSG 
N / 


Write message 
IF at.4 








scree eat » AB Option 
eed Table 





PC Option 
table 





DLZMPIOO - MPS Batch Initialization HIPOMAT 1.1 Diagram - 1.11.1.2-01 


based on partition the job is 
running in. 


Use XECBTAB TYPE=CHECK macro for 
XECBs DLZxXCBn0 and DLZXCBn3. 


If either is not found, message 
DLZ089I is issued. 


Use XECBTAB TYPE=DEFINE macro, 
If not successful, issue message 


Notes Routine] Label Ref ‘Routine] Label Ref 
{o7] Names of XECBs must be modified 
DLZ2082I and end. 





DLZEPIOO - MPS Batch Initialization HIPOMAT 1.1 Diagram - 1,11.1.201 
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CHART: DLZMINIT 
. PAGE OF 
Input Processing Out put 
( hae ee ee Se 
anes | ; li ee XECB Table 
DLZXCBn0 4 — ») Awaken online partition = ——--—~--—-———/ BEZieen' 

and end if error. { 

\ 

ence! > 

<’ foe, >| DLZMMSG DOS/VS 

co" ; 






Write message 


1.19.4 


Send message that batch 


partition started, 
ue 

fim > 

\r—/ 









DLZMMSG 


Write message 
1.17.4 


— 





XECB Table : ; 
Wait for online to 


initialize and end if 


DLZXCBN1 


cannot wait. [eeeet > 
DOS/VS 
















us \ on 
af iest >| DLZMMSG 
Te: Ee re bt as Fe ne 
Write message 
1.11.4 
ll 


lessees 
e 
\y/ 
Chart 1.11.1 
Step 5 
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Routine{ Label Ref 


DLZMPIOO - MPS Batch Initialization : HIPOMAT 1.1 Diagram - 1.11.1.2-02 
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Notes Routine| Label Ref Notes 


XPOST DLZXCBn0 XECB. If not 


successful, issue message 
DLZO84I and end. 


Issue message DLZ081I. 


When on line initialization 
cormpletes, XPOST XECB DLZXCBn1. 








CHART: DLZMINIT 
. PAGE 1 0F 2 
Input Processing Output 


| 
L 
| 
| 


Language ey 
Indicator { | b--~----- mwa => Set up pointers for 
D 





DLZMINIT; 


c check if online started 


successfully. 

eergenace 

2. If successful, go to Step 
4. 


If not successful, send 
error message, 


reer Be DLZMMSG 
\ / 


Error Message 
5 o1T.4 


“<i> DLZMABND 


ABEND Reeceesing 
. 1 5 


> 
[pest | t > 
Move program request on 


handler address to COMREG. 




















PDIR 


COBOL and 
Asseabler 


application prograa, 





LZMPI00 - MPS Batch Initialization HIPOMAT 1,1 Diagram - 1.11.1,3-01 


Label 


DLZMPI00 - MPS Batch Initialization a) ers HIPOMAT 1.1 Diagram - 1,11, 1.3-01 
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Notes Routine] Label Notes Routine 





oom 


fo3] If XECB DLZXCBn0 is not at the 


same place as before or no 

















longer exists, issue messages 
DL2082I and DLZ090I, 


If the BPC could not be started, 
issue message DLZ085I. 


If there was an error on the 
scheduling call, issue message 
DLZ095I. 


If PL/I --- a three~word list is 
set up with pointers to PCB 
list, amount of dynamic storage, 
and start of dynamic storage 
area for PL/I. 


if ANS COBOL or Assembler --- 
register 1 points to first 
PCBADDR. 


Input 





DLZMPIOO - MPS Batch Initialization 


Notes 


Issue message DLZ082I, 





DLZMPIOO - MPS Batch Initialization 
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Routine 





CHART: DLZAT ITT 
PAGE 20 2 
Processing Out put 






Send error message and 


terminate if online no 
longer active, 


us 

<test> DLZMMSG 

N “ Error Message 
1.11.4 


ay > DLZMABHND 
ABEND Processing 
1.11.5 


00220008 
e 


HIPOMAT 1.1 Diagram - 1,11.1,3-02 


Notes Label Ref 


HIPOMAT 1.1 Diagram - 1.11.1.3-02 








Label Ref 


eee 
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CHART: DLZSTERB 
1 OF 











PAGE 2 
Input Processing Output 

Fron User 
Applicaton 
Progras 

e 

e DLZMTERM: 

e 





DLZxCBn1 





Tell online partition to 
terminate. 


EQJ 
Indicator 


DLZXCBn2 


If no error, go to Step 4. ee | 


Issue error message and do 
cleanup if XPOST 
unsuccessful. 








s——\ 
< (eos ‘> DLZBKSG 
\cn/ 
Error Sessage 
1.11.4 


[es DLZMABND 


ABEND Processing 
1.11.5 





DLZXCBn1 Assncesees --> Wait for online to 


terminate. 


If no error, go to Step 7. 





DLZMPIOO ~ MPS Batch Termination HIPOMAT 1.1 Diagram - 1.11,2-01 


Label Ref 
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Notes Routine| Label Ref 


The EOJ indicator is in flag 
byte following XECB DLZxCBn1, If 
on, XPOST DLZXCBn2. 


fo3] Issue Message DLZ090I. Dump if 
UPSI indicates to. 


[os] XWAIT DLZXCBn1 until online 
coapletes. 








CHART: DLZMTERM 
. PAGE 2 0F 2 

Input Processing Out put 

pa ee See 








Issue error message and do. 


cleanup if XWAIT 
unsuccessful. 
[ ee 


ery DLZMMSG 
\ca/ 






Error Message 
. 3G .41.4 


[s21> DLZMABND 


* ABEND processing 
1.17.5 










I DLZXCBn1 
Delete batch XECB. = Es 
ee 
| DLZXCBn2 


iso ama that batch i 
| 
| 


a! 




















\,/ 
To DOS/VS 
DLZMPIOO - MPS Batch Termination HIPOMAT 1.1 Diagram — 1.11.2-02 
Notes Routine| Label Ref Notes Routine! Label Ref 
{o6] Issue message DLZ090I. Dump if 
UPSI indicates to. 
| | xX . 
{08 POST DLZXCBn2 
{ 
{ 
Ann i a a eg re er re te = 
DLZMPIOO - MPS Batch Termination / HIPOMAT 1.1 Diagram - 1.11.2-02 
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CHART: DLZMPRH 
: PAGE 10F 4 
Input Processing Out put 


ne 










From User 
Application 
Program 





Register 0 PC Option 
Table 


aan, ae, meee 


DLZxXCBn1 
Validate user call list. ————-——-——--—-1 
Chart 1.11.3.1. 





first call. Chart 


1.11.1.3. 





Register 1 


eS 


Call List 


eee 
Awaken online partition. ee 
Chart 1.11.3.1. » 





DLZXCBn1 
SE SESSA? Wait until online 
partition is done. Chart 
1.11.3.1. 
Partition S Give results to users. = #----+----- 
Table 








To Address 






Fron 
Address 
Length 


Restore user registers. 
Chart 1.11.3.2. 


Chart 1.11.3.2. 
: | 
---> 





To Use 
vo User, 
So Program - 
DLZMPIOO - MPS Batch Program Request Handler HIPOMAT 1.1 Diagram - 1.11.3-01 











= 


Notes Ref Notes Routine} Label Ref 











02) Ensure that there are no more 
than 18 parameters and that all 
which should be are within the 


Routine] Label = 
batch partition. 
Move list to follow DLZXCBn1 so 
that online can find it. 


XPOST DLZXCBn2. 


XWAIT on DLZXCBn1t. Online will 
post it. 


DLZMP100 - MPS Batch Program Request Handler —~—SCSCSCSCS Program Request Handier HIPOMAT 1.1 Diagram - 1.11.3-0 
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Input 


a ne renin 


Register 6 


Register 1 


> 
User List 


en 


| 


4 


DLZMPIOO - MPS Batch Program Request Handler 


Notes 


Language is PL/I if register 0 
has 1. 


Language is COBOL or Assembler 
if register 0 has 0. 


PL/I reissues STXIT PC when 
application program starts, 
therefore, DL/I aust reissue 


STXIT to get control after PL/I 


issues its STXIT Pc. 


Ensure that call list and 
addresses it points to are 


within batch partition. If PL/I, 


ensure that pointers pointed t 
by pointers, are within the 
batch partition. 


° 


Routine| Label 


a 
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Processing 















DLZMPRH: 


Reset PC STXIT if first 
call from PL/I. 


Check if all user call 
list addresses which 
should be, are within 
batch partition. 


If no error, go to step 5. 


Issue error message 
DLZ092I and end. 
f——4\ 


< fee] >|DLZe4SG 
\rco/ 







Error Message 
1.11.4 


=I) DLZNABND 
ABEND Processin 
1.14.5 


Check list to ensure it 


does not contain more than 








18 parameters. 


If no error, go to step 8. 





Ref 





een 





out Label Ref 


CHART: DLZAPRE 
PAGE 1 OF 


Output 





PC tion 
Table 


ae 


HIPOMAT 1.1 Diagram ~ 1.11.3.1-01 


HIPOMAT 1.1 Diagram - 1.11.3.1701 


Input Processing 






Issue error message 
DLZ091I and end. 







[ rn | a 
{est > DLZMMSG 
\ / 


cm“ 
Error Nexsage 





2172.4 


fa >|DLZMABED 











aj 


partition. 


Awaken online partition. 


Issue message DLZ084I and 
end if unable to awaken 
online. 


fi—\ 
< jee, >| DLZSNSG 
\eo/ — 
Error Message 
1.17.4 






ee > DLZMABND 









DLZXcBn1 


re 





{17} Wait for online to 
complete. 





DLZMPIOO + MPS Batch Program Request Handler 


Notes Routine| Label Notes 











List contains count field and up 
to 18 parameters in area behina 
XECB DLZXCBn1. 








09] XPOST XECB DLZXCBn2. 


Online partition will xposTt 
DLZXCBn1 when online processing 
complete. 





DLZMPI00 - HPS Batch Program Request Handler 


Licensed Material 





ABEND Processing _ D Processing: 


Set up list for online 5) 


ABEND Processing 
1.1145 








CHART: DLZEPRH 
PAGE 2 OF 3 
Output 


DLZXxCBn1 


Call list 


DLZXCBn2 


ae ee 





HIPOMAT 1.1 Diagram - 1.11.3.1-02 


Routine} Label 


HIPOMAT 1.1 Diagram ~ 1.11.3.1-02 
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\/ 
To Chart 
de 3 


1.1 Step 5 


DLZMPIOO - MPS Batch Program Request Handler HIPOMAT 1.1 Diagram - 1.11.3,1-03 


Routine| Label Ref 


ere eaner er eae te nt reece rrrenenerae Aree arent rernaatrastnenerumas | sareeneatetesstencneni ee ane 


Routine] Label Ref 


CHART: DLZMPRH 
. PAGE 3 0F 3 
Tnput Processing Out put 
a er ett te atten re 
{72} Issue message DLZ084I and 
end if wait is 
unsuccessful. 
| ae | 
<test> DLZMMSG 
\ Vo 
Error Message 
16.1724 
e 





DLZAPIOO ~- MPS Batch Program Request Handler HIPOMAT 1.1 Diagram = 1.11.3.1+03 
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CHART: DLZMPRE 
; PAGE 1 0F 2 
Input Processing Output 


DLZXCBnC ) If BPC ended, go to Step 


Partition 

Table 4 
Partition 
Piplaladcd 


>) tt bad return code in TCA, 
t 


| 
| 
| 












nee ogee If PST error indicator, go 
ee es al 


> mana to Step 7. 
ee 












PST User I/0 

Move data to user area. Area 
oe 7S) oo 
From 






Address 
Length 


oa 
i. 


DLZMPIOO ~ MPS Batch Program Request Handler : : HIPOMAT 1.1 Diagram - 1.11.3.2-01 







Notes Routine] Label Ref 





a 


Message DLZ100I is issued if BPC 
ended, 


Message DLZ102I is issued if 
return code in TCA is invalid. 


{03] Message DLZ098I is issued if PST 
contains an error. 





Label Ref 


‘DLZMPIOO - MPS Batch Program Request Handler - “ey HIPOMAT 1.1 Diagram - 1.11.3.2-01 
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hn 























; CHART: DLZMPRE 
PAGE 20 
Input Processing _ Out put 
XECB Table 
- \{{05| If online tables no longer 
COME ARDS | meen / . 
pos Eee ne exist making pointers 
invalid, go to Step 7. 
gsister ) Restore user registers. 
Perey 
> 7 
Issue message and go. to To User, 
abnormal end routine. ~ peOgran 
Re 
Jie DLZMMSG 
‘ 4 Error Message a 
31.6 
\ 
oo} >| DLZMABND 
fe ABEND Processing 
1.19.5 
DLZMPI00 - MPS Batch Program Request Handler ; HIPOMAT 1.1 Diagram - 1.11.3.2-02 





ne hemsnaun semaine interes ahem tees nn A a str er 


cc 


Notes Routine{ Label Ref Notes Routine[ Label Ref 
[os] Message DLZ082I is issued if 
DLZXCBn0 no longer exists or not 























where expected, 


XECBTAB TYPE=CHECK 





a me srk dn mrnemtshecniweinemmemmt sees mencrade 


DLZMPIOO - MPS Batch Program Request Handier HIPOMAT 1.1 Diagram - 1.11.3.2-02 
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T: DLZMMNSG 
. 10F 1 
Input Processing Out put 


From Calling 
Routine 


\ 
ED | 










DLZMMSG: 


Output Area 


gees) 


Convert message identifier 
to printable decinal. 


Ca 
Message ID 71 ) 


ul 


Setup balance of message. 
a vest 
hed Pd DLZMMSGT 
Message Module 


Put message to console and 
printer. 


Clear message output area. 
SYSLST 





Output Area 


\,/ 
Return To 


Calling 
Routine 


r 





DLZMNPIOO - MPS Batch Message Writer HIPOMAT 1.1 Diagram - 1.11.4-01 


| Notes Routine] Label Ref 


fhe online aessage rsodule, 
DLZMMSGT, now includes all 


messages that can be issued by 
MPS and is used in both the 
batch and online partitions. 


Routine] Label Ref 





All messages are written to the 
system operator and to the 





printer. 
DLZSPIOO - MPS Batch Message Writer ergy = = HIPOMAT 1.1 Diagram - 1.11.4-01 
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Input 


Processing 


es 


From STXIT AB 
n 


Routine 














fae JL 


DLZMABND: 


Save ABEND code. 
Set AB entry indicator. 


Go to step 5. 


Set PC entry indicator. 


Send error message 
DLZ0961. 


[ eee | 
an a1 > DLZMMSG 


Error Message 


eoeeeo}] > 





Fron Notify the online 
XPOST 7 
Entry partition not to wait for 
batch because batch is 
ending. 
DLZMPIOO - MPS Batch ABEND Processing 
Routine| Label Ref Notes 











There are three entries to this 
routine: 


1. AB STXIT 
2. PC STXIT 


3. The MPS Batch Initialization, 
MPS Batch Termination, and MPS 
Program Request Handler routines 
- whenever XPOST is needed to 
tell online that batch completed 
unsuccessfully. 


fo} The AB output area is located in 
storage following the DC C ‘AB 


SAVE" indicator. 


The ABEND code is located in 
storage following the DC C ‘AB 
REASON CODE ' indicator. 


The PC output area is located in 
storage following the DC C ‘PC 
SAVE ' indicator. 


06] XPOST online XECB DLZXCBn3. 


DLZSPI00 - MPS Batch ABEND Processing 
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1.11.4 






























a a 


Out put 









AB Output 
Area 


[puzxcen3 | 
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HIPOMAT 1.1 Diagram - 1.11.5-01 


a Label Ref 


HIPOMAT 1.1 Diagram - 1.11.5-01 


CHART: DLZMABND 
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taput Processing Out put 


—_ 








Delete batch partition —_—__—;=) DLZXcBn1 


XECB. 


Partition 
COMREG 


| Dy ape series > Dump or cancel. =I 


er | 


near [-2s25003] 


\,7 
To DOS/VS 


es a er rp re ee enya 





Te a rn et ar ee er ne re 


LZMPIOO - MPS Batch ABEND Processing HIPOMAT 1,1 Diagram - 1.11.5-02 














——_ Notes Routine] Label Ref Routine} Label Ref 
i {e7] XECBTAB TYPE=DELETE for XECB 
DLZXCBn1. 
a JDUMP if UPSI bit 5=0, otherwise 
CANCEL. 
| 
| | 
! | 
! 
| 
en renerememen ene a) aan TS ana win a ema are ren eee a a 
DLZMPIOO - MPS Batch ABEND Processing HIPOMAT 1.1 Diagran - 1.11.5-02 


Licensed Material - Property of IBM 137 








Input Processing Out put 


cIcS Task 
Dispatcher 


DLZMSTPO: 


Issue XECBTAB TYPE=CHECK 9 ——~—--__—- 
PTR TO 
to locate DLZXCBO00 DLZXCBO00 


Message - 
MPS NOT 
ACTIVE 


DLZ0801I 


DLZXCBO00 


staat teehee > Turn on POST bit in 
PTR TO — POSTED 
DLZXCBOC DLZXCBOO 












*DLZMSTPO - Stop MPS Transaction HIPOMAT 1.1 Diagram ~- 1.12.1-01 


Notes Label Ref 


DLZHSTPO - Stop MPS Transaction HIPOMAT 1.1 Diagram - 1.12.1-01 
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Notes Routine] Label Ref 


Message issued if DLZXCB0O does 
not exist 


Performed only if message wasn't 
written in Step 1. 


NOTE: User should include 
DLZSSTPO in CICS Transaction 
List Tabie (X17) 





Input 


A a a oe nym ga a ie a A no 


Frou ammo 


[ios DLZDLAOO: 
eove 





a a a om 


[PSTIOPRM 


See ae 
en ena en ae oa a 


Coll | 


aac se He te enn na cae casi 


DLZDLAOO - ANALYZER 








ae ne ee OO at Pi a et pn a th me Pe ene ee nero 


Notes 





for) DLZDLA0O is called from program 
request handler ~- DLZBPROO - in 
a batch system. From - DLZODP00 
- in an.online system. At 
termination it is called from 
either the application program 
control - DLZPCCOO - or from 
online task termination - 
DLZ0ODP01. It is also called from 
DLZDXMTO. 





oe a ae a a a A es ear cet er 








The function, - first parameter 
in list - is encoded. If no 
valid function function is found 
‘AD® status code is returned. 


G3] 





DLZDLAOO ~ ANALYZER 


Processing 


ea SS ae SAE a Dh A A 


ma sane a ee ee ea AO ap an A A a Oe 


Ae a eae a a nee ee 


Routine] Label 


ae caehetnemamtmmtennenl Tammmeneteniammeed 


th re ne a a a a a tS a naan A an 


CHART: DLZDLAOO 
PAGE 1 0F 1 


Output 





PSTSEG 
PSTSEGL 


(00000000 ] 


ee eee ee ee A ce a 


Save registers and 
initialize 














Encode function 


A. Normal function : 


GU, GN, GHN, GHU, GNP, 
GHNP, DLET, REPL, ISRT, 
ASRT 


Chart 2.1.1.1 


B. Pseudo function : 


GscD , UNLD , TERM 


Chart 2.1.1.2 





“Jes R13 
Update JCB-trace, update ‘a eee | 
PCB: segment name ,level, “~""7"""""~ Zh, ee ener, REE a aeny 
keylength, restore atl Wd 
esendace | PCB 
registers 


Seca 
ae ] ee 


- 





A 
URN TO 
~"HIPOMAT 1.1 Diagram - 2.1-1-01 


A ae Na a a A te a at aan ne 


Routine; Label Ref 


Ae a a NE LO NE a ee | eee nme tee | meee ies fl mamate nmeinenec 


Ref Notes 








am a a a a a een cee es a alee a 


HIPOMAT 1-1 Diagram - 2.1-1-01 
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ace a Se Darna ~~] FROM DLZDLA00 
CHART 2-1-1 
STEP | 


PST SDB 


SS 


FOB 


Pee ee err ee ROR ees a I 
DLZDLA00 — ANALYZER 


te a a a a a a eo a a Se Se 


Notes 
[01] It no valid PCB address is 
az provided, abend code ‘476° is 
returned. The JCB and PCB is 
updated and the second part of 





the level tables cleared. 
{02} If no I/O area is provided "AB 
status code is returned. 


{03} All SSA‘ts in the call are 
~~ checked. 


Key checking is done for load 
mode, for the last SSA of an 
ISRT call. For PROCOPT=LS and 
for HISAM the root key is 
compared to the previously 
loaded root. Status code ‘LB* 
indicates invalid sequence. 


(23) 


Sensitivity checking is done for 
ISRT - DLET - REPL calls. 
Violations return ‘AM‘. Extra 
checking is done for DLET — REPL 
calls, if successfull GH call 
was executed before -"DJ‘ 
status. 


DLZDLA0O - ANALYZER 
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Processing 


Routine} Label 


OS ee eens 
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PAGE 10F 1 
Output 


te a A ne = 





a ee ee A cw en meee 


A A NA Se 


a 


) 


eas (ol an 


a nt a ee te ne ce es a ee a ee ae 


Validate PCB address, 
update JCB and level table-~“7-*-"-*~ Zi 





Find user's I/0 area 


Validate SSA's 


Chart 2.1.1.11 


Perform key checking for 
loading 


Validate sensitivity 


Check length for variable 
length segments 


Call DLZDLOCO to open data 
sets 


Call proper action module 
~ DLZDLROO - DLZDDLEO - 
DLZDLDO0 


[secceeee 
wire] 
N/ 
Vv 
TO DLZDLA00 
CHART 2.1. 
STEP3 


a a re ne ee a te ne ee ee ee: fe a a a ae te a meee ae 


HIPOMAT 1.1 Diagram - 2.1. 1.1-01 


a a a ey Se me me ce ee ce aes a ma 


Routine} Label Ref 





Ref Notes 





a ee rr a ne ee re ae ate en ney ane mena me ow ae mene | am soe: 





eee | eee 


TESTPCB [06] For variable length segments the DOVLTST 
VALIDCK2 2-byte length field in the user 
DBPCBFND 1/0 area is compared to the 
GETIJCB maximum length and to the 
key+keyoffset. If it is greater 
or smaller 'vi' status is 
returned. 
[07] When the data base the PCB ANYSEN 
Peer references is not open, DLZDLOCO 
mer aoel is called to open all data bases 
related to this ‘PCB. 
ees [oa] For get calls DLZDLROO is ACTION 
called. For DLET/REPL calls 
DLZDLDOO is called. For 
ISRT/ASRT calls in load mode: 
DLZDDLEO is called for all 
segments, except for HDAM root - 
where DLZDLROO is called. for 
ISRT not load mode: DLZDLROO is 
NOTLOAD7_ called for all segments, exept 
FSTDATAL HISAM root = where DLZDDLEO is 
ISREPL called. 
TSTISRTS 
ee ee ae ee HIPOMAT 1-1 Diagram - 2.1-1-1-01 
IBM 


Input 


FROM CHART 
2.1.1.1 STEP 3 














SSA's SDB 
ee ewe meee wwe ee> 
Sear ae Seren een 


LEVEL TABLE 


_|LEVLEV x ¥ 
LEVNUPC 


LEVF1 
SDBPHYSC 





SEC.LISTS 


reel 


DLZDLAOO ANALYZER 


Notes Routine 


Sen 


When the segment nage, specified 
in the SSA cannot be found in 
the SDB's ‘AC* 
returned. 


status is 


When an hierarchy error. is 
detected an "AC* status code is 
returned. 


The levels corresponding to gaps 
in ‘the SSA's are filled with 
data from the previous call. For 
loading no parent level may be 
‘Lp status is returned. 


eupty, 


Rxtra checks are made for DLET 
and REPL calls. When no GH call 
was made for this SDB previously 
a 'DJ' status is returned. 


c-D- 
Fr-L-n-T - xX. Status code 
for invalid command code is 
*Ag*. For D =~ call and no path 
sensitivity "AM. 


Valid command codes are: 


DLZDLAOO AWALYZER 
















CHART: SDBLOOP 
PAGE 1 CF ‘1 


Processing Output 








SDBLOOP: 


Find SDB corresponding to 
SSA 


Find corresponding level 
table 


LEVEL TABLE 


Fill pseudo entries for 
LEVNOSDB 


nn] 
gaps in SSA's > 







Fill level table with data. 
from SDB 


Validate command code 


| 


For qualified SSA's 


A. Pind FDB corresponding LEVF3 
eee 
to SSA LEVMEMBR 
B. Encode operator 


> 


Load mode: compare key 
in SSA to key~feeback 


ee eh 
{| 
STAN ALE 

\/ 
RETURN TO 
CHART 2.1.1.1 
STEP 4 


HIPOMAT 1.1 Diagram - 2.1.1.11-01 


Label Ref Label 


epee 


Notes Routine Ref 


SDBLOOP For errors in qualification 


format ‘AJ' status is returned. 


A. NXTBOOL 


FDBEQUAL 


Valid field names are: any 
normal field of the segment, 
the XDF1LD-naae, if the 
secondary processing sequence 


GETLEV 


RIGHTLEV 
For a concatenated 


is used. 
segment field names of the 
logical child and of the 
destination parent are valid. . 
*AK' status for invalid field 


name, ‘AC' if /CK or /SX is 


PSEUDLOP 


used. 


CODES 
ROAIT 


Invalid operator returns 
status code ‘AJ*. 


NXTSEC11 
RI1TISOK 


If qualified SSA's are 


the 
key has. to correspond to the 


specified for loading, 


key~feed-back area, otherwise 


NOTDORR *LD' status code. 





HIPOMAT 1.1 Diagram - 2.1.1.11-01 
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Input Processing 
FROM DLZDLAOO 
CHART 2.1.1 
P 28 

Al 
et-W3\ PSEUDOCA: 
eeen}] > 
———4 

PARAMETER — 

LIST cc ~----- >}[o2] escpv sane nnn n= 4 
i DST eRe ee —" ee ie eee q / 
FUNCTION 
nd Provide address of PST and 
I/0 AREA 
a i ene SCD 

aoa Gains cian on sd N, 
PSTPSB 1----------- >{ [02] unup - TERM ----------F 17 
PDIRADDR 
PSBLIST 2 
eee Process all PCB's in PSB 
PSBCODE 


to a an sm, 


A. Call DLZDDLEO for load 





ated \ 
B. Clear flags and ----------T p-=/ 
pointers 
Cc. Call DLZDBHOO to purge 
buffers 
D. For an unld call, call 
DLZDLOCO to close all 
data bases in system 
-PSTOCALL~- 
Vv 
TO DLZDLAOO 
CHART 2.1. 
DLZDLAQO - ANALYZER —S Tea ag ee eg ee TT y 
Notes Routine! Label Ref Notes 
[or] Input to the Gscp call is DLBGSCD 
function and I/0 area address. 
DLZDLAOO puts the SCD and PST 
address in PSTSEGL. Program 
request handler moves it to I/0 
area. 
[o3} The TERM call is issued in DLBUNLD 
online to end a task, the UNLD UNLDLOOP 
eall is used in batch to end the WASHLOAD 
batch progran. NXTPCB 


A. If the UNLD call is made for 
load mode, DLZDDLEO is called 
to write the last records for 
HSAM and HISAM. For HISAM and 
index data bases a record 
with FF-key's is written. 


B. Flags and pointers are 
cleared, so that the PSB can 
be used by another task. 


Cc. All buffer‘'s of this user are 
written to the data base now. 
PSTFNCTN is - PSTPGUSR -, 
PSTBLKNM, DMBNM, ACBNM are 
cleared. 


ae le te oe cate at A mn ctr Ne Ne OLS A Se Lele npr ct 


DLZDLAOO - ANALYZER 
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CHART: PSEUDOCA 
PAGE 10F i1 


Output 


See Me ee nA nee mae eh a nn nt ce a na he ere ee ae 


“"“BSTSEGL PSTUSER 
Ee | (170 AREA 


DBPCBLEV 


ene oe es pt 


[eer | 


SCBLEViCc 


LEVTTR 


ee a nt ne 


JCBNOSAM 


ao sr hn a ly 


ce a nc a a ne a te ct a nw 


HIPOMAT 1.1 Diagram - 2.1.1.2-01 


ce a a a a no ie lh Ne eS Ne a a hh em 


Routine] Label 


Ae ee A et A he Ne em nH mene ne ens 


HIPOMAT 1.1 Diagram ~- 2.1.1.2-01 








CHART: areas DLRO 











‘ PAGE OF 2 
Input Processing Output 
FROM ANALYZER ™ 
“| 
el_s\ | DLZDLRO: 
DByPsB_. ~~ -PosITION akon 
D. _ 
description {o2] If unqualified call go to fea] ‘>foa] 
ee ee — ee 
PSBDB step 4, else: ——y/ NF 
SDB ~ we | 
tea S | as 
FOB [a]---— ELLSALAEALAS 
DMBSEC Laws\ ~-----—--------— 7 
Berea csea! < {ee} >[pLZLTwW / 
DSG roo’ |—--—------——-----—-- 7 
as ata oe eens Status - any to use 4 
DMB-PREFIX information >fal previous positios. 4 
JCB~PREFIX JCB- PREFIX = ea y Baa org erry one Tere mae 
SDB fa] < [o2] If GU with qualified root: , if _ {h?ormation 
-------- _— ---- _ VIVIVITTT7. en 
TE A, CONSE A IS aye ei 
ERIE ea Tee 771 > Secs, = 
\|7 beaceeatie ma 
Pbond\ aewoumenaeneesenennen nanan. / 7 wee eeeeae 
all <_ jee] >[DLZTAG / [nena | 
information r-~9 eo 4 Cee enna 
ae Determine start 7 ne ee 
LEV key for searching 4 
JCB- PREFIX meee eee 4 
en nn ne Else: / 
4 
4 
/ 
y 
03 7 
(q-->| LOOTED 


202.4 


ee eae ae ee 


Then go to step 6 


NF 47 else: 


DLZDLROO - RETRIEVE MODULE 


Routine] Label 


Ref 





[01] 1/0 - information : 


ee ene | 


A. The position - block includes 
RBA of segment(HD) or 
lrec(HS), RBA of previous and 
next positions (HD), offset 
to segment from begin lrec 
(HS), concatenated key, 
level, 
block-no. (HSAM) , block-no. and 
RAP-no. of current RAP 
(HDAM). RAP = root anchor 
point. 


The DB/PSB-description - 
block includes segment and 
data set descriptions, data 
base specifications, 
sensitivity and HDAM 
randomizing facility. 


The status-information - 
block includes prior status 
codes, segment status and 
-for output - pseudo abends 
(801 & 800) 


The call-information - block 
includes SSA and call-type. 


ae ee mie a ae nae ae a oe le a ne a a a ee 


DLZDLROO - RETRIEVE MODULE 


—— ee ee ee ee: 


Licensed Material 


a a i a a re 


go to step 5, 


~~ HIPOMAT 1.1 Diagram =72.2.1-01 








Ref 


Routine} Label 


E. Processing starts with 
initialization. Level of 


a en ae 


previous call stored in 
LASTLEV. 


Special conditions: 


No valid level from previous XLTFINDR 
call. Qualified calls: 

DLZTAG, step (02) A. 

Unqual. calls: either next MTNOSSA 
root, then DLZNOSS, step 4A 

or step (05). NOTEOD 
GNP calls: special HAVGNP 
processing, then enter main 

line: 

Qualified calls step (01) A LITWSSA 
Unqualified calls step (04) NOSSA 
Start of general processing GUGNGNP | 


ee a a a a a SR a ee ams am: eee a ani ats 


HIPOMAT 1.1 Diagram - 2.2.1-01 
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Processing 


oa A. 
[a]----> 
= {hwnd \ po 
< jee} >fDLzNOsS 
Ne-n-17 ee 
Unqualified GN 
eall analyzation 


Then go to step 6 


fafaess [05] Get first DB segment 


3, [06] For ISRT calls: 


o6]= 
Fos] =t 
stand ean a a am ca nescence en aoc ete 
< [ee| >/DLZAREJ 
Neo |= SS 
Insert positioning 
A. Move segment to user 
(i]---> 
= Plond\) peteemse sess ese 
< fee] >|DLZGETS 
Npewa/ | a-2------2---2---- 


Make retrieved 
data available to 











/ 
7 
7 
/ 
/ 
74 
7 
7 
7 
7 
4 
4 
4 
7 
/ 








Vv 
ANALYZER OR 
LOAD/INSERT 


user 
2.2.5 
[o7] Exit 
DLZDLROO - RETRIEVE MODULE ois A eee ee 
Notes Routine} Label Ref Notes 
[06] DLZAREJ calls DLZSSA, if RETURNI 
necessary, to find insert 
position for key. Control is 
then passed to DLZISRT for 
insert positioning. Return is to 
DLZDLRO. 
A. PSTSEG is address of data, 
PSTSEGL gives its length. 
For ISRT calls, DLZGETS does ARETURNA 
only housekeeping, no data 
moving. DLZGETS will pass 
control to DLZRETN and 
DLZDLR1 to exit. 
For a segment with logical 
relationship DLZGETS will 
call DLZLOGR, ID(2.2.5.1), 
for data move /insert 
positioning. 
[07] If call-type = GET go to 
ANALYZER and if call-type = ISRT 
go to LOAD/INSERT. 
DLZDLROO - RETRIEVE MODULE ——S™S Pe ae ET SOT 
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CHART: 


DLZDLRO 
PAGE 2 OF 2 


Output 


nn cn a a ae et ee: 


[ eee | 


Status. 
information 


Position 
for 
insert 
SDBPosé, 
SDBPOSN 


PSTSEG 
PSTSEGL 


HIPOMAT 1.1 Diagram - 2.2.1~-02 


a a ne a vn a a ee a a a ne a a a ae ee a ee ae ae nt oe 


Routine} Label 


a ce a a a a er a i a nn ne a ne te a ee 


HIPOMAT 1.1 Diagram - 2.2.1-02 


CHART: DLZLTW 
1 OF 


7 PAGE 2 
Input Processing Output 

FROM DLZDLRO os 
CHART 2.2.1 

Al 

eli-iy\ DLZLTW: 

cove! 

——}/ 


[02] Set KEEPIT=1 





LEV ; LEV 
er ny Tn > {02} Check previous call‘s a eteaimoameatete 
Position, os : VIITTATTVITT [ 7} 
call hierarch. path against = 7777 ---"-7" \/ {* a 
inform. 4/1 > 
eae — SSA's. Loop through —~|7 5a 
levels. Check sgmt type aa acm 
ee ee [ScaLEvic } 
and for qualified SSA test eon a eee 
key feedback area: = 
Phend\ penne ene 
< jee] >|DLZKDTE 
renal | ——---=-----—----- 
Test KFBA 
2.2.2.1 
Resulting conditions: 
A. Path accepted, locate 
previous segment: 
——----—-, SDB 
Phsod\: poses ee es Reg6 } Seen el 
< jee] >(puzpcux————~™—CSS 7777777777) (7 || 9 rte [sDBPosN | 
Neer | ------------------ <--------- 
2.2.2.2 i jars See 
Set KEEPIT=0 and go to 
step 3 
DLZDLROO - DLZLTW ROUTINE Batre Gee ete eye ~HIPOMAT 1.1 Diagram - 2-2.2-01 
Notes Routine] Label Ref Notes Routine| Label Ref 
{03} KFEPIT=1 means: try to use 
- previous position. KEEPIT=0 
Means: DLZLTW has been left. 
Other values have special 
meanings. 
[02] DLZKDTE is invoked via DLZSSA 
which is called by return to 
DLZDLRO and back to DLZLTW. 
Logically, this is part of 
DLZLTW as indicated by KEEPIT=1. 
Qualified SSA test: after LTWSSAQ 
entering several routines return 
to DLZLTW, entries LTWSSACA, 
LIWSSAF, or LTWSSAG 
Lowest level found valid is LTWSSACA 
stored in JCBLEVIC 
A. Set code for exit: entry 
UNQLA in DLZSSA for GU or 
ISRT, entry SSAEVALH for GN 
DLZPCHK loads buffer location 
of previous segment into Reg6 
(exception: HD, GN call) and 
~for HD- loads available 
SDBPOSN positions. 
DLZDLROO - DLZLTW ROUTINE i ae a HIPOMAT 1.1 Diagram — 2.2.2-01 
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CHART: DLZLTW 
: PAGE 2 OF 2 
Input Processing Output 


eS a a eS Se SO ee a Se we a ee a ee a a ee a a a a ew 


B. Discrepancy at root 
level: set KEEPIT=0 and 
go to step 3 


C. Discrepancy at lower 
level: set KEEPIT=0 


If GN call, position to 
previous sgmt: 














PAStSS ee ween, (771 > [Regé ee 
< fee] >]DLZPCHK VIVIVITIFT SS \/ —- === [spBPosN 
p--17_ | —---—— nS taal eat pepctcte ainsi 
2.2.2.2 
[03] Exit 
Vv 
TO DLZDLRO 
YLZDLRO0 - DLZLTW ROUTINE age ig Pe ee cee, NSP ay ~~ HIPOMAT 1.1 Diagram - 2.2.2-02 
Notes Routine! Label Ref Notes Routine] Label Ref 
~—"'B, Set code for exit to entry |_ Fewer ee ey Spies Sa yay WS emerge Sea Oe aR ee eee 
MTWISSA in DLZTAG: get new 
root by key. 
Cc. Set exit code for entry 
SSAEVALL in DLZSSA. 


DLZDLROO ~ DLZLTW ROUTINE HIPOMAT 1.1 Diagram - 2.2. 2-02 
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Input Processing 
PROM CALLER _ < wo 
[iba DLZKDTE: 
eaese 
eres poeaces Gates eerily 
en. inform. egmen 
Saeed inform. eam mmm >} 101} Find FDB for SSA field 
JCB charade eat | [02] 
ee SDB o-- 
LEV renee wrens: 
ae pe ae err DMB 
een If found go to step 2 
FDB 
A. If not found: AK --—~—~— mad \ 
—+----------==} 
[02] If KEEPIT=1 use KFBA else 
segment 
aa Raa Rn Sinn EomiCa a 
| operator ea meme > (03] If necess., turn on } x 
(aia nee ee VWIIIVIVIITT77 
Reg15= LEVSTOP oaSenretrt sso |7 
LEVMEMBR | 
----------->{ [04] Test segment or KFBA 
Field value --- [04] gm 


Reqo= 
[ SSA ] 
Segment data 


[east 


oo a Se SY OO De ame 


Sp a a Oe ay a a ee ee ee a ee 

















CHART: DLZKD 
PAGE i bE fi 





Output 
PCB 
Status 
[esas] 
LEV 


DLZDLROO - DLZKDTE ROUTINE Poet Pee Sah ie - “HIPOMAT 1.1 Diagram ~- 2.2-2¢1-01 
Notes Routine] Label Ref Notes Routine} Label Ref 
JERE eee Re EE ee a EES Oa Seon ORRTED (SDAA IER, |) Ace tL a a en a Rr era = ek: Veeeeeern an eeeeinres 


{02} | XDTESTI 
A. KDTESTC 

[02] Test either segment or key KDTESTBR 
feedback area against field 
value in SSA. 
If log. relationship, build DLZKDTL 
concatenated segment. 
If variable length, build data. DLZVLRT 

[23] If qualification is on key, rel. KDTESTHA 
op. is > or =, and key <= SSA. 

[04] If accepted, R15=0, else R15=4. KDTESTE 


pe renee oe me ee om ‘ecatmetetees 


DLZDLROO - DLZKDTE ROUTINE 


ee SE IO Se A ae SE NN NN ST A SS 
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CHART: _DLZPCHK 
: PAGE 10F 1 
Input Processing Output 
— FROM CALLER 3 a ( (SS a 
*| 
etd \ DLZPCHK: 
eeee | > 
io! Susy eases ee 7 
SDB (Reg5) 
[ oc =| a oe rae ne nnn > [02] If GN call, HD: 
: JCB 
LEV (Reg4) Move SDBPOSC to CURTTR. Go-—-~----~-—---— as (conta 
[ ] to step 3 aa tp (ee en ee 
CP ge = eee ee ee A. Else: 
a eae ee a me > [02] Position to segment 
LEV Reg6 
eae ny eee ------ boS8N: oe Set ed Xf . joes seo 5. 
[LEVTTR ] < fee] >{pnzseTL. = ~~ | —---------———— 7 Segment in 
a — Np--a | —---------—------ buffer 
Interface to (2 fff a ann ae ae a er 
buffer handler, 
PSTBYLCT 
A. 
Skacd. gawene cee 
<_ fee] >] DLZHUNT 
Newall aeeae no --2-------- 
Find SDB from 
segment code 
B. eee 
SDB 
PLSAN, peewee ceo Ses oss: . Seas X00 Se. 
< Jee} >/DLZPsTT ——--+--------—— +7 SDBPOSP 
mr" |Get pointers from SDBPOSC 
segment = jf fo 0 G0 fewer meee 
ae SDBPOSN 
[°3} Exit 
ics ese0n - 
se] 
wr 
Vv 
TO CALLER 
DLZDLROO - DLZPCHK ROUTINE epee Pa eS Ree ee ey HIPOMAT 1.1 Diagram - 2.2.2. 2-01 
Notes Routine| Label Ref Notes - Routine| Label Ref 
aay ee Pe ee ee eee eS TOT PETC Lear SDBPOSP, ---C, .--N in |DLZPOSA|) | 


A. For HSAM, more than 1 PCB: 
restore position. 


For HISAM: 
control interval splits. 


take care of 


[03] 
A. If not found (segment not 
sensitive): 


go to step 3. 


For HS: rel. record no. 
offset moved to SDBPOSC, 
SDBPOSN already by DLZSETL. 


B. 


For 8D: post twin pointers. 


Clear dependent positions 
(SDBPOSP, ...C, ...N). For 
HD: post child pointers. 


For HD, log. rel. with 
inverted structure: post 
child pointers. Subroutine 
called by DLZPSTA. 


Ae Ha LE A HS SD SD SAE 


DLZDEROO - DLZPCHK ROUTINE 
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preceding sibling SDBs 


multi- sitioning. 
POSCHKA PO 3 


POSCHKA2 


POSCHKB 


turn on LEVDLET, 


and 


DLZPSTN 


DLZPSTA 


DLZAPST 


unless 


HIPOMAT 1.1 Diagram - 2.2.2.2-01 





CHART: DLZTAG 
3 PAGE 1 O0F 1 
Input Processing Output 
From DLZDLRO _ ws pe Seed eee eee ee 
eo 
[La DLZTAG: 
eae Pg 
aa? [o2 Normally go to step 2 
~ Segment and LEV = 
field sexes wenn enna > [02] If key qualific. and op > 
fos [ssa into JI] J ~ or =, position on key 
patets — required. Go to step 4 
PSDBS PCB ed P 
FDBS S Key FBA oe 
eee ee areca [xey Fea] [03] For GN goto step 5. Else 
~ position on start of DB 
[oa Call Buffer Handler 
Jhwad\ prwwcweeccewmemmmmmng 20 BN Fete. 
<_ [ee] >[DLZSETL LAA hA ALAA VITITIVITVIVTT > Reg 6 ] 


Lee | 


buffer handler and 
HSAM I/0 


[os] Exit 


DLZDLROO - DLZTAG ROUTINE 








T 2.2.1 


HIPOMAT 1.1 Diagram ~ 2.2.3-01 


Notes Routine| Label Ref Notes Routine[ Label Ref 
[02] Depending on entry code and 
other input 
[02] Set code PSTSTLEQ for DLZSETL. MTWISSA 
Set exit code for entry SSAEVAL 
in DLZSSA, 
[03] Set code PSTSTLBG for DLZSETL. NOLL 
Set exit code for entry SSAEVAL 
in DLZSSA. 
For GN set exit code for entry KPURTC 
SSAEVALM in DLZSSA. 
[04] DLZSETL branches to subroutines 
according to DB organization. 
Reg 6 points to segment in 
buffer pool. 
DLZDLROO - DLZTAG ROUTINE Sy PG Se tn eg ee ge ee HIPOMAT 1.1 Diagram - 2.2.3-01 
. a ry 
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CHART ; DLZSSA 











= PAGE 1 OF 
Input Processing Output 
FROM CALLER ~ pas BG Tae ar ca ear aa es ae a eR eae 
| 
ely DLZSSA: 
“First part Start level” ical Fo 

First x a 
bf Lev Seeiiieateed ah [o2] 

eee Reg4: foals _ 

Position level 

and status where the 

conditions search has cs 

set b to start jfJo peor moon ----- > A. If SSA unqualified, 

RETRIEVE en eee 

in goto step 2 

previous 

or_current --- 

ca fiend \ p---- 

ees < jee} >] DLZKDTE 
as Check Sede 

Soros part acceptability of a 
of L segment 

ae 2.2.2.1 

descr ipt= If segment is not accepted v1 > [95] 

SSALYSER goto step 5 ——4y/ 

[02] 
ree rare 
hand \ es of 

< feef > DLZUPDT VIVVITTIT777 | }* <2 ee 

Nero | nnn nn nnn ncn pT tt |77t > beseript. 
Update level table -~-|/ 
nn acceptable 

sgm’ 

[03] Goto next lower level including 
hierarch. 
path 

[o4] If level not qualified 

goto step 6. 
A. Retrieve segment of 
specified type 
t-4\ (oe 
sleet >{DLZSKPG 
Pee! jaa are ere 
Skip | segments 
faecal 2.2.4.1 
B. Goto step 1 p-—4N_ pee 
eo} >]01 
[ei piel 
DLZDLRO0 - DLZSSA ROUTINE —ss—“‘i‘“—s™SCS:;C;CO!OOOOO ye ase es ~~"RIPOMAT 1.1 Diagram - 2.2.4-01 
Notes Routine} Label Ref Notes Routine| Label Ref 
[o4] 
A. Prepare input (segment type DLZSKPG | SKIPGENA 
etc.) before entering the 
central DLZSKPG routine. 
DLZDLROO - DLZSSA ROUTINE Sisee ere. TT ””””S«#éACYEBOMAT 101 Diagram - 2.2.4-01 
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Input 


DLZDLRO0O - DLZSSA ROUTINE 


Notes 


ea a A A a 


Processing 


Output 


fosle1.> [os] Segment not acceptable 
\4 4 


A. If segment is in same a-4IN poe 

oe] >[5c] 

DB-record goto step 5c,'—-4/ \/ 
else: 


B. Get next root segment 


Psst Ga So eS 
< jee} >| DLZSETL 
t--V4 | 2 - 
Interface to 
buffer handler and 
HSAM I/0 





—=4y—4N\ to next segment 
fscl*1 > 
NJ 47 same type under present 
root 
Jhend\ panne ee 
<_ fee] >] DLZSKPG 
r--1/ ~----------- = 


Ski segments 
Bees 2.2.4.1 


eeeeeesns 
se] 
\7 
Vv 
RETURN TO 
CALLER 


CHART: DLZSSA 
PAGE 2 OF 2 


A A a 


HIPOMAT 1.1 Diagram - 2.2.4-02 


Routine! Label Ref Notes 





Routine{ Label Ref 


HIPOMAT 1.1 Diagram - 2.2.4-02 
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CHART: DLZSKPG 
é PAGE 1 OF 2 
Input Processing Output 
_ a _ FROM CALLER {| ©) (Oe 
e 
xk DLZSKPG: 
15 cae Og 
Re ae ae 
none anna a oo------- 22S [or] Test Option. If ‘Skip to 
ion = 
[38 e next* goto step 2 (JCBLVT 
oe aioe = will be 0) 
. JcB 
A. Prepare control input --~-----~--~~---—- AQT peewee 
ei Enea IS , [scBLvt } 
"SDB ~~*~<“—s*~‘“s*s‘<éRQSC“‘C”SNSCOC#W = SER Se 
pesicesatat oeeeeuenn | | patna tines >| [02] 
SDBORGN Buffer — 
-—- OC. O 
SDBPOSC ld ‘ 
2 segmen 
SDBPOSN eee ne I Sbunnwd\ eo ee 
ee eee <_ fee] >| DLZSKPS 
t---——---—-J JCB Skip to next 
eee ae, ao segment 
JCBCODE, ae ea tal ah 
JCBRDREQ A. If skip failed, goto 


A ae ee ee 


step 4 


[03] Option *Skip to next": 


/l—J 
<_ [eel 
cr 


N 
>| DLZHUNT 


Test if segment 
sensitive 


If not sensitive, goto 


step 2 


A. 


DLZDLROO - DLZSKPG ROUTINE 


Option ‘Skip to specif. 
segment‘: test segmt. 


level and segmt. code 


If accepted goto step 4 


HIPOMAT 1.1 Diagram - 2.2.4.1~01 


a a en a i we a a ne a a er ee ee 


Notes Routine} Label Ref Notes Routine]! Label Ref 
[oi] Major options: (1) Skip to next 
segment, Reg15 >= 0. (2) Skip to 
specified segment, Reg15 = -1. 
A. JCBLVT = X'02*, req. sgmt. SKIPGENA 
code, sgmt. level in physical 
DB, parentage level. 
[02] For JcBRDREQ off, current SKIPGEN 
segment is examined first. 
i) 
DLZSKPS calls general skip 
routine DLZSKPE which calls 
specific skip routines: 
for HS DLZSKPD 
for HD, using SDBPOSN DLZSTLA 
In some cases (HS, skip to first 
child of current segment), 
DLZSKPD is called directly from 
DLZSKPS. 
A. Fail: e.g., if end of ESDS 
chain reached for HISAM. 
[03} 
DLZDLRO0 - DLZSKPG ROUTINE ——SSSOSSSOO™OC™~C~C~SOSTT SSS HIPOMAT 1-1 Diagram ~ 2-2-4-1-01 
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CHART: DLZSKPG 
2 PAGE 2 OF 2 
Input Processing Output 
B. Else, if position still 
before segment 
searched: goto step 2 
Else indicate failure: 
make Reg6 negative 
[ou] exit 
DLZDLROO - DLZSKPG ROUTINE Re ae GS koe “HIPOMAT 1.1 Diagram - 2.2.4.1-02 
Notes Routine| Label Ref Notes Routine; Label Ref 
oy B. If sgmt. code of sgmt. found | as SP ig Oe ge oe eee eae ene Seg rans eataets 
is not larger than that 
required. 


DLZDLROO - DLZSKPG ROUTINE HIPOMAT 1.1 Diagram - 2.2.4.1-02 
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Input Processing 
z 7 FROM DLZDLRO 7 oy 
CHART 2.2. 
e 
el_-4j\ | DLZGETS: 
eve] > 
4/7 
[02] Turn on LEVDATA. Turn on 1s 
ef VIVIIVIVITVII77 
LEVHELD if get hold call. "307-77 7----- |7 
LEV | 
Se sanpeatecantamaeness Temteneataatamentemeneenee ea A. Save lowest level ene 
LEVLEV ]-———- oe ssoeres | 
Se oe us! number | 
we SX 
———4/ 
DMB = : 7 . 
fo ee {o2] If logical relationship 


/t--4 


ves 


17 





< jee Be DLZLOGR 
aaa. build concat. 
segment 
222-561 


If variable length segment 


< jee] >fDuzvLRT 


build/ compand 


segmen 


[3] Move segment to I/O area 


DMB Data 

ao ae SX} 7sb--43\ ici ence em DY 
[puspi ‘| Se oor in| -—-----—----—-4/| <_ Jee] > DLZMOVA o----- += === 3 / 
Ae a pate post | AN r--7 eee en abies aoe ee 


Give segment location and 
length 


DLZDEROO - DLZGETS ROUT ROUTINE 


Notes 


Routine| Label 











[03] If batch or only one task 
active, and if segment is fixed 
length and not involved in 
logical relationship, segment 
data are not moved but left. in 
buffer pool. Same is true for 
Insert calls. 


For a path call (*D command) 
data have already been moved in 
DLZUPDT, are not moved here. 


Address of I/O area is in 
PSBIOAWK. 


DLZDLROO - DLZGETS ROUTINE 
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CHART: DLZGETS 
PAGE 1 OF 2 
Output 
LEV 
LEVF1 
Sele Ts 
JCB 
KEEPIT+2 
“pst I/O area” 
PSTSEG | 
PSTSEGL 


HIPOMAT 1.1 Diagram - 2.2.5-01 


Routine| Label 


HIPOMAT 1.1 Diagram - 2.2.5-01 


CHART: _DLZGETS 
F PAGE 2 0F 2 
Input Processing Output 





a ce oe a a A we ep Pe A ee a eH A ON OA I AE A I ee eee ae ee 





ee a ee oe 


[4] 


A bhawd\ 
< jee| >] DLZRETN 
"1 Steet eave aini oan 


Final housekeeping 


ee a Pe 


od pene mae-men. a re HS ED ND 
[es oe 
any | anne nn 


— 


Leave Retrieve 


a a sn ye 


| 


\N 7 
Vv 





— 


RETURN TO 
ANALYZER OR 
LOAD/INSERT 


oo aoa ee rare eae ee eee ane a ae ae ane nrc ee cee SS PS A SE eA erent ee a ae re ca a mE eG EN 


DLZDLROO - DLZGETS ROUTINE HIPOMAT 1.1 Diagram - 2-2.5-02 


oA eT SE EE a oS Se ea Cu A a A A A A oe an arn cg ne — 


Notes Routine] Label Ref Notes Routine}| Label Ref 


eee 








ey Ce En Cee BS ft een ee ees 





[oa] For insert calls, return is to 
Load/ Insert 


ee A SY OE EER meee AD A rae pont eat eras mtr ate eserves Sec ay eae a SP SP S- w S  =S D S S cnieiacnentaesinestaantaeheteademtesata 


DLZDLROO - DLZGETS ROUTINE HIPOMAT 1.1 Diagram - 2.2.5-02 
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CHART: DLZLOGR 
PAGE 1 OF 2 
Input Processing Output 


FROM CALLER 


1 
ellwj\ DLZLOGR: 


eeeoj > 











“PSDB COSDB ny peas 
as | [ eer ~) OES he ee eee > 03] For ISRT call go to step “fea >[oa] 
Ganga ose nae rae 
aN Jhand\ PSBIOAWK 
1ogs ghila ae ay / |< Lee] > Dt DLZYENT Work area 
a wey! | meen nee or conc. 
hates” as, Move log. child gegnent 
[02] 
pests parent nn Picci AS SDB 
anne, S Ff) < ee} >fonzpsTa a, eoeeessweeeeene/ {sppPosn | 
[Pointers }-— Nepwed [ewe renner rer rm nn nf fp] bern ne 
Sot arr are ei coic Post child 
pointers 
[03] If not a var. length 
segment, go to substep A 
baid\ poses ssn sa eee 
< jee] >{DLZVLRT 
Nerm-17 ae ea a aes ea ee es ne oe 
expand segment 
A. 
PSBIOAWK 
Work area 
°--1 for conc. 
Move dest. parent Segment 
data 
DLZDLROO — ROUTINE DLZLOGR FOR LOG. REL. Sete ee eee ee, “HIPOMAT 1.1 Diagram - 2.2.5-1-01 
Notes Routine} Label Ref Notes Routine! Label Ref 
[02] Destination parent concatenated |DLZYENT 
key and logical child data. 
[o2] Get child pointers from DLZPSTA 
destination parent. If physical 
parent is dependent in logical 
data base (inverted structure), 
get physical parent pointer. 
DLZDLROO - ROUTINE DLZLOGR FOR LOG. REL-- = = | ~~~—~~<;7;7;3PTt*é<S;<;7 ST RE ROMAT 1.1 Diagram - 2.2.5.1-01 
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CHART: DLZLOGR 
: PAGE 2 OF 2 
Input Processing Output 


ND ee a ee nae epee re a ee me ee en a ce ae ee pe A eS NE NE SR 


fealei> [24} 








“"PSDBS”~*~“‘“OC’CSOSSONC#C#C#;*;*~*# 
faliciacGreere area ee eee ney Hee eee e> JLSSIN. pws ee 
[ } Of. log. < ies! >{ouzRetr 
een child ee A ab ibatereied 
Sema neers Insert. positioning 
tenes sce rl ee oa ens eines nn for log. child 
fade Seil 
Con 
emacs | e 
V7 
Vv 
TO CALLER 
DLZDLROO - ROUTINE DLZLOGR FOR LOG. REL. Ss ee ee HIPOMAT 1.1 Diagram - 2.2.5.1-02 
Notes Routine} Label Ref Notes Routine| Label Ref 
[04] Destination parent exists. 
Position segment on alternate 
twin chain. 
DLZDLROO - ROUTINE DLZLOGR FOR LOG. REL. ~~=~~SCS;ST«T;]73PSE:té~<S;7<; SST” dE OMA 1d Diagram - 2.22524-02 
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Input 
etaC Es Eevee FROM CALLER 
[as 
A A rt A A A CO OH es eeee] > 
SDB PSBIOAWK —y/ 
of log. Log. ol 
hild data 
ods is caeiai anios including (|| 
concaten. 
key 
LEV en —— 
es 1 OE St ted -> 
[LEVUSEOF ] | | 
DMB 


Eeesty | 
Feast | 
lists 


Dest... | =------—----——}/ 
arent in 
uffer 


od nd 


a A A A a ee 


DLZDLROO - DLZRETI ROUTINE 


a I SR A A A oS A A A A SRA UD SA a 


Ne ee ee 


{01} LEVUSEOF indicates offset of key 
for this level in concatenated 





key. 


Destination parent data are 
stored behind concatenated key 
and log. child. 


DLZRETK 


For virtual logical child, i.e. 
insert through logical path. 


[02] 


Positioning on physical twin 
chain required. 


A. Find logical twin pointer 
number. Find logical child 
first and last pointers in 
logical parent. Find FDB for 
key of log. child, if 
present. 

B. Find physical twin pointer 

number. Find physical child 

first and last pointers in 
parent. Find FDB for key of 
virtual logical child, if 
present. 

Log. twin key is moved to key |DLZUPDL 

feedback area. 


a A NN I SE A SA OS 


DLZDLROO - DLZRETI ROUTINE 
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Routine] Label 
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CHART: Pa tase 
: PAGE OF 2 
Processing Output 
DLZRETI: 
[oi] Retrieve destination 
parent using concatenated 
key 
an PSBIOAWK 
< rey ss DLZRETK SRE EID Dest. 
Nesey | moot rrr nnn arent 
ata 


ia liasinaaiamatetemeannebe? a 02] For virtual log. child go 


to substep B 
A. Find pointer number 
Go to step 3 
B. Find pointer numbers 
[03] Get pointers from destin. 
parent 


If no key and rule 
‘FIRST’, go to exit, step 
5 


0 Oo rn en ce er ne a ae ee 


HIPOMAT 1.1 Diagram - 2.2.5.11-01 
Ref Notes Routine| Label Ref 
LEV [03] RETISRTU 


RETISRTF 


RETISRTR 


HIPOMAT 1.1 Diagram - 2.2.5.11-01 


CHART: DLZRETI 
. PAGE 2 OF 2 
Input Processing Output 


ee Pe a a a a a a en ae en a es ee: eA a te a ce i A a ne 








[>] Follow alternate twin 
chain until key (if 
present) larger than key 
of inserted segment or to 
end of chain. Go to exit, 
step 5 


Special case: matching key 
found in chain: 


A. Key unique: If segment 
deleted logically, go 
to exit, step 5 








DBPCB 
Else status code ‘II*® ——-------—-----4INf{—o p-------~ ~— 
: a | DBPCBSTC 
and go to exit, step 5 een cae amcor 
B. Key nonunique: If rule 
is "FIRST', go to exit, 
step 5 
Else follow twin chain 
until larger key found 
or end of chain 
[os] Exit 
Vv 
RETURN TO 
CALLER 
DLZDLROO - DLZRETI ROUTINE Bee ge een a eae ee OE ee Tee oe HIPOMAT 1.1 Diagram - 2.2-5.11-02 
Notes Routine} Label Ref Notes Routine/| Label Ref 





[04] Alternate means: logical twin RETISRTE 
chain if entering from physical 
path, physical if entering from 
logical path. 


If sequence field is in RETIVK 
destination parent concatenated 

key - possible only for virtual 

log. child - the virtual area 

(phys. parent conc. key and log. 

child data) is built in PSBIOAWK 

calling routines DLZYSTC and 

DLZMOVA. As an indication, first 

byte of PSTWRKTS is set X‘FF'. 


A. For logically deleted 
segment, turn on bit JCBDEFDL 
in field JCBCODE. 


om oat re ar ane me ea a ee a cae a ee en cee ee mec we me arenes cme nce A ce ga a a a a A A ce eae te 


DLZDLROO - DLZRETI ROUTINE HIPOMAT 1-1 Diagram - 2.2-5.11-02 
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CHART: DLZDDLEO 
‘ PAGE 1 O0F 2 
Input Processing Output 
PROM eae ee Go ee ee ee aR ee ane 
CALLER(NOTE 1) 
‘| 
eti\ DLZDDLEO: 
ence] > 
nomena LAME Tied Filan ate 
ee caren ee ote mm a > [oa] Initialize 
cae VIIVTTTITT77 
ppg ers oe ae 4 
! 7 
i sn i a a es ne a Sis wae Z\> | Meee esate Se! a a ee 
DL/I CONTROL = p---~~---- — —~ . 7 | 7 DL/I CONTROL =o p------~--- 
BLOCKS  ###JjJ fj | eeeene2-e r= > [o2] Call subroutine depending Vv BLOCKS 
er ee ee —— VIVITITTITT AL per ee 
eo on data base and ‘' PROCOPT*=~--777~--~ \7 ie 
74 
“IZ. Of eee 
‘+ DL/I BUFFER 
Pied. poesia eso cae eee. 
< feel > HSAMLOAD 
mr" tasam LOAD 
2.3.1.1 
B. 
Phen, goes S ae 
<_ |e} >]DFSDHILO 
eo U" |HISAM LOAD 
2.3.1.2 
Cc. 
Pikeed Xo pa ee 
< eel? HIISRTRO 
eo" Inot load: INDEX 
data base or HISAM 
root segment 
2.3.1.3 
D. ~~ 
Phawnd\ ipeenanececnclamccee 
<_ Jee] >JHIISRTR 
m1" JHISAM not load, 
dependent segments 


DLZDDLEO - LOAD/INSERT MODULE 





Notes Routine} Label Ref 
01] DLZDDLEO is called from DLZDLA0O 

the call analyzer or from 

DLZDLROO the retrieve module. 


DLZDDLEO - 


160 


LOAD/INSERT MODULE 


Licensed Material - Property of 


HIPOMAT 1.1 Diagram - 2.3.1-01 


Notes Routine} Label Ref 


HIPOMAT 1.1 Diagram ~- 2.3.1-01 


IBM 


Input Processing 
OBE CONTROL | peo eee f ie 
ie searea ae WJ A | 


ee -—-4 


XN 
< [ee] > DFSDHDLO 
Ne f 


CHART: DLZDDLEO 
PAGE 2 OF 2 
Output 


oe a a a a a A 


HDAM/HIDAM ORD. 5 





F. Do special checking for 


logical child segments 


{ veakas | 


{03} 


A. 
Plead. pecatesseo asses 
< jee] >| DFSDNXTO 
oak Ending routine : 
NOT LOAD mode 
23.1.7 
B. ics 
JRA pete se ee 
< jee} >{HIISNXLV 
| aaen LAME neelreeguineerars Sa 
Ending routine : 
LOAD mode 
23.1.8 
[esceeees 
aia | e 
NP 
Vv 
TO DLZDLA00 
CHART 2.1.1 
DLZDDLEO - LOAD/INSERT MODULE aid Mee Oaks ares ce ~HIPOMAT 1-1 Diagram - 2.3.1-02 
Notes Routine| Label Ref Notes Routine| Label Ref 


te ne a ne cn ee a Sn ee 


DLZDDLEO - LOAD/INSERT MODULE 


HIPOMAT 1.1 Diagram - 2.3.1-02 
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CHART: HSAMLOAD 
< PAGE 10F 1 
Input Processing Output 
FROM DLZDDLEO 


ec a ee a ee ae ee a a a a a a a a i ae 














CHART 2.3.1 
STEP 2A 
e 
efid\ HSAMLOAD: 
sees] > 
———41 
ey = . DTF peer e 
[scBHSADD ] eeoecoscaes > [or] on first entry : o)) pO LODBLOCK 
initialize DTF and 1/0 i eons eee LODLRECL 
buffer address | emeacmmera fee 
hap od 
[02] Issue locate mode 'PUT* = 2) [a] LODBLOCK 
when record is full 7 ge: 
Al—==<7 7. JT "\ 
[a] q / \ ( ) 
° . > | 
| | a 7S 
N / N / 
[LODBLocK = L--—---—*) [03] Move segment to I/O area | See en Pree 
: and update tables i =) ~-------- = 
“4 
LasUN, pice eee 
< |ee| >] DFSDLIMS 
r--17 women ewer fF eee ere rece ce eevee 
ee eh eae oe cae eee ee ee I/O BUFFER 
04] For UNLD call issue last ---4\;~ 
Ea = fat 
‘putt 
[sseeeess 
vis 7] 
Nar 
Vv 
TO DLZDDLEO 
CHART 2.3.1 
STEP 3 
DLZDDLEO - HSAM LOADS eer ge ta ak oe ye “HIPOMAT 1.1 Diagram - 2.3-1-1-01 
Notes Routine] Label Ref Notes Routine| Label Ref 
{02} DLZDLOCO stores the I/O area HSAMFRST 
address in the JCB. With every 
*puoT’ it is updated. 
The record size is taken from 
the DTF, the error exit address 
in the DTF updated -QSYNAD-. 
DLZDDLEO - HSAMLOAD/—~—~—~—~—~S~CS«T«7;3}ETSCé<S;7~S;S!*!S”!!STTTTT eT HIPOMAT 1.1 Diagram — 2.3-1c1-01 
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CHART: ee hs 


; PAGE 1 OF 
Input Processing Output 
FROM DLZDDLEO T =o 
CHAR’ 3. 
STEP 2B 
es 
ef_-i\ DFSDHILO: 
reel 7, 
SCB JCB ai: 
a cochagebmamntereaaas MEME coin teebmcaapeateered _— oe oe meen ama > {o2 a).. Root segments = = 8 +----— ee em 
[scBPRESF ] LODBLOCK j ee ete 
LODOFFSET 
SDB LODLRECL Write previous KSDS record 
[ ] - and get buffer for new one 
i coc ano cea ea a ae cd JCB 
eee ce a nea at conn ere te am ee ee tee | me mene nee cae > b).. Dependent segments aeons Lod capes 
PSDB JCB | | eaten S LODBLOCK 
DMBPRSZ LODBLOCK |--- LODOFFSET 
DMBDL LODOFFSET If no more space in ESDS LODLRECL 
LODLRELL write previous ESDS and 
eae cera ei ea get buffer for new one 
[02] Move segment to buffer 
SF Midas \, ~ wsereniesatee ce desiscn isn oi tes 
< jee] >] DFSDLIMS 
Neo 17 Se ae. 
JCB as 
ay = - - - - - ~- ---~-->] ] 03} UNLD - call 
LODBLOCK [03] 
LODOFFSET 
LODLRECL Write previous KSDS and 


ESDS record. write new 
KSDS record with root key 








of FFs 
Vv 

TO DLZDDLEO 

CHART 2.3.1 

STEP 3 

DLZDDLEO - HISAM-LOAD—S— ee ee ay eee HIPOMAT 1.1 Diagram - 2.3.1-2-01 

Notes Routine} Label Ref Notes Routine} Label Ref 
[02] {02} The segment is moved, the PCB DFSDLIMS 


key feed back and the 
A. Record length, buffer WRITEOLD level-table updated. 
address, offset into buffer 
is stored in the JCB and 


passed from call to call. 


When a call for a new root DLZDBHOO 
segment is made, the buffer 

handler is called to write 

the previous KSDS record and 

to get bufferspace for the 

new one. 


B. If there is space left in the |WRITEOLD] NEEDOSAM 
ESDS records, continue with NEWRBA 
step 2. Else the RBA of the DLZDBHOO 
next ESDS record is 
calculated, the pointer of 
the current ESDS record 
updated, and the 
buffer-handler called to 
write the ESDS. Another call 
to DLZDBHOO is made to get 
buffer space for a new ESDS 
record. 


ABEND 855 is given if VSAM 
returns an RBA different from 
the calculated one. 





DLZDDLEO - HISAM-LOAD HIPOMAT 1-1 Diagram - 2.3.1~ 2-0! 
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CHART: HIISRTRO 
F PAGE 1 OF 2 
Input Processing Output 


Ay ce Ao an AA es A ue ee ne sa ca a a et a Sa nS i 


FROM DLZDDLEO 
CHAR' 23. 


STEP 2c 


i 
eli \ HIISRTRO: 





eeee| > 
PST cy 2 ---3\ ete ac aneverennees 
eee enna ——>} 101) Call DLZDBHOO to get es | ——4/ PSTDAT. KSDS 
f 
PSTUSER ao a as es ne record 
ete segment with key EQ or HI ee 
PSTBYTNM 
- pra) “SDB LEVTAB 
manta ies LH ge eee as s= > 02] If key of returned segment —-~<-~-~——4 pom 47 fo a nc 
PSTDATA is equal, then update SDB 3 aa eal 
ACB 7 and level table. If it is 
extension 
a tt me not equal go to step 7 
DBPCB 
[03] Return II status, when © ---~-~--------1) ae 
segment was not deleted | bee aa [* a 
weee| > 
To 
DLZDDLEO 
2.3.1 STEP 4 
else log old segment 
cr iat, =] ed \ [04] Move segment, update PCB -+—~--—----— KSDS 
<= eaten EAA toned eee l record 
and level table l sed tll), MSR SSS oto 
—--y/ 
edd Dhmwd \ pewewee nea omen 
I/O AREA < feel | F SDLIMS 
mri scvlceen nae eee Semen omens 





[os] Indicate only one segment 
in record and log new 








record 
DLZDDLEO - HISAM-ROOT INSERT ee oe re te eee ieee “HIPOMAT 1.1 Diagram - 2.3.1.3-01 
Notes Routine} Label Ref Notes Routine] Label Ref 
Gaege te, easy ne ees aa TY rr mmm "SDS record. ~~~ StC<;«<C™~!~;~S;SC<S;<S;<;«7;7;«&@SS aaa (tan 
{01} The buffer-handler is called GOTOFUNC | BIIRTRO 
with "PSTSTLEQ* to get a segment 
with key equal or higher than 
the one to be inserted. 
[oz] If the key returned is higher, ISNOTEQ 
processing continues with step 
7. 
[03) When the delete~flag is not on NONOIT 
in the segment returned, an 
II~status code is returned to 
the caller. 
fhe data base log module is DLZRDBLO ] ISDELETE 
called to log the old KSDS 
record. 


[94] The new root segment is moved to }|DFSDLIMS] LOGAFTNX 
the KSDS record. PCB key feed 
back area and level table are 


updated. 


{o5] The pointer to the ESDS record 
is cleared and '00° moved to the 
KSDS record behind the root 
segment. The data base log 
module is called to log the new 


eet ts tt ne ae I nh A nN NN eS Spe a ee a a ee ee a nw Su ee St ee es ee i ee 


DLZDDLEO - HISAM-ROOT INSERT HIPOMAT 1-1 Diagram - 2.3.1.3-01 
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CHART: HIISRTRO 
. PAGE 2 OF 2 
Input Processing Output 


ee A ee a Ae a at wae i nr a i a a a ee: a nn 


[os] Write record back 








canta ee ase 1 = PSTDATA 
PSTFNCTN |-—-)l—-——-—-1y [07] Call DLZDBHOO to get ——- 5 C plocelaol Seem = 
PSTBYTNM ” buffer space for KSDS q So 
record 
Saemeneaeneee poe | ro?» ence saree ae! 
a | — [os] Move segment, update PCB -~—---—-—— pv 
, and level table 
ee hy * =P Pld pee ee ee os Tene 
I/O AREA < beet DFSDLIMS BUFFER 
cm. aera ear aaa 
[09] Log the new record 
{29] Call DLZDBHOO to write the 
new KSDS record 
cas SDB LEVTAB 
(22) Update tables (eee es } 
Vv 
TO DLZDDLEO 
CHART 2.3. 
STEP 3 
DLZDDLEO - HISAM-ROOT INSERT Sea San a See ae “HIPOMAT 1.1 Diagram - 2.3.1.3-02 
Notes Routine} Label Ref Notes Routine] Label Ref 
[06] The buffer-handler is called to 
write the KSDS record back 
-PSTBFALT-. 
[07] The buffer-handler is called GOTOFUNC] ISNOTEQ 
-PSTGBSPC- to get buffer space 
for one KSDS record. 
[29] -PSTPUTKY- is used to write the ]Gororunc 
new KSDS record. 
DLZDDLEO - HISAM-ROOT INSERT = ———SSSCSC«7«7;7;«7«<;‘ OO HIPOMAT 1.1 Diagram - 2.3.1. 3-02 
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CHART: HIISRTR 
: PAGE 1 0F 1 
Input Processing Output 
~~" FROM_D ZDDLEO 
ae as el 
“tl 
etJ\ HIISRTR: 
eeoe] > 
as ae ~s- on aN ce estes 
sppposc. | | l-----------> {07} Log 014 record aes Sia=a/ PSTBYTNM 
SDBPOSN S PSTWRKT1 
PSTWRETS 
a ai a ean DMB - . 
‘ces Ya 02] Compute length of shift ----+-----~ isaac 
se — data and check rest of Loy? iw | 
ee records for valid segment sa ane cee ae 
BUFFER codes 
(03] Shift data and new segment 
have to be moved 
Chart 2.3.1.4.1 
[04] Log record 
= _ mn) “SB +LEVTAB 
{o5] Correct position of other ROSES pau Co) ee 
users of same data base ee = tne 
[06] Write one, two or three 
records 
EE 
ail 
eer pLZDDLEO 
Pets 
DLZDDLEO - HISAM DEPENDENT SEGMENT INSERT FO a eee eae HIPOMAT 1.1 Diagram - 2.3-1.4-01 
Notes Routine|] Label Ref Notes Routine] Label Ref 





ec eee a ae rte an ams ee sam 


[02] DLZDLR0O has positioned within 
an KSDS or ESDS record, where 





ne es naam apc ann ei 





the new segment has to be 
inserted. The old record is 
logged from insert point on to 


the right. 

[02] The record is inspected from the HAVELREC 
insert point to the right. The COMPSHFT 
segment code is checked and the ABENDB61 


length of the remaining segments 
added to give the *shift data’. 


Chart 2.3.1.4.1 describes in 
more detail what has to be done 
to move segment and ‘shift 
data‘. 


Log the old record from insert DLZRDBLO | LOGLEVCO 


point to the right. 


SDB"s and level tables of other 
PCB's that are positioned in the 
same record are updated to show 
the shifted position of the 
segments. 


INSADJUS 


et se ca my i nc i tea a se ce a et 


DLZDDLEO - HISAM M DEPENDENT SEGMENT INSERT 


166 


se eae ane ee i sn nes Mme ne we 


eae ancient eae | eerie ree | am ancen | enema ae me 


KNNDONEX 


ne a ee ee a te ee 


[06] DLZDBHOO is called to write back 
the old record, and to write one 
or two new ESDS records. 





a se a ae ae ie ai tn 


HIPOMAT 1.1 Diagram - 2.3.1.4-01 
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CHART: NOTSC 
: PAGE 1 O0F 2 
Input Processing Output 
aes eae — FROM HIisnTR [| |. a gl atte we kge tenga ale ete Se 
CHART 2.3.1.4 
STEP 3 
“| 
el t\ NOTSC: 
ooee| > 
————_/ 
DMB) 0 0s a os ~--3\ a SOME ze Sees 
[ nr ] [PSTUSER } --+-------- > [o2} Segment and ‘shift data’ —~------ a | av, fo1a record] 
Sao fit in old record : 
a aeanE Wie A. Move ‘shift data’ right 
B. Move segment to buffer, 
update tables 
I/O AREA 
oa mood tee ee ate 
a ea ee ean am ete > [02] Segment fits in old --------- = {oid record new record] 
record, but not ‘shift | | TSS 
data** 
A. Calculate RBA of new 
ESDS record 
B. Get buffer space for 
one ESDS record 
Cc. Chain old and new 
record and log chain 
D. Move ‘shift data" to 
new ESDS record 
E. Log new record 
F. Move segment to old 
record 
DLZDDLEO - HISAM DEPEND. SEGM. INSERT ee i eee ee, MEN Pe HIPOMAT 1.1 Diagram - 2.3.1.4.1-01 
Notes Routine] Label Ref Notes Routine} Label Ref 
01} When both the new segment and DFSDLIMS | OVERLAPL 
the shift data fit in the old 
record, the shift data are moved 
xight by segment length. The. 
segment is moved to the record 
and PCB and level table are 
updated. 
A new ESDS record has to be GETNESDS | SEGTOOLD 
built. LOGCHAIN 
COMMOVE 
LOGNEWOS 
DFSDLIMS 
GOTOFUNC 
DLZDBHOO 
DLZRDBLO 
DLZDDLEO - HISAM DEPEND. SEGM. INSERT = = a AIPOMAT 1.1 Diagram - 2.3-1-4.1-0: 
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CHART: NOTSC 








i , PAGE 2 OF 

Input Processing Output 

Sena eae DMB = eee ees cio 
et eng ten ---=>1/03/ Segment and ‘shift data" --- old record new 
{ i [03] 3 -_ fora aa ] [Pee oats) | 
a to new ESDS aa 
Pee > A. Calculate RBA of new 
I/O AREA 
ESDS record 
B. Get buffer buffer space 
of new ESDS record 
Cc. Chain the two records 
and log the chain 
D. move segment to new 
record, update tables 
E. Move ‘shift data‘ to 
new record. If they do 
not fit repeat 3 a,b,c 
F. Log one or two new ESDS 
records 
[seeseess 
7 aaa has 
V7 
Vv 
TO HIISRTR 
CHART 2.3.1.4 
STEP 4 : 

DLZDDLEO - HISAM DEPEND. SEGM. INSERT Se ON ge ee ee HIPOMAT 1.1 Diagram - 2.3.1.4.1-02 
Notes Routine] Label Ref Notes Routine! Label Ref 
[o3} Neither segment nor ‘shift data’ |GETNESDS| SEGTONEW 

fit in the old record. a new LOGCHAIN] SHIFTO00 
ESDS record has to be built. if DFSDLIMS j SHIFTOS2 
it does not have room for the COMMOVE 
segment and ‘shift data’ another }|LOGNEWOS 
new ESDS record has to be built. |NEWRBA 
The records are chained and GOTOFUNC 
logged. DLZDBHOO 
DLZRDBLO 
DLZDDLEO - HISAM DEPEND. SEGM. INSERT |= = = = ~~ ~~~ ~<S;~S;«7;7;«3 }3PSTtSt “THIPOMAT 1.1 Diagram - 2.3-1-4-1-02 
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CHART: DFSDHDLO 
, PAGE 10F 2 
Input Processing Output 


Po ae a ep Ee “lrrom pbzpppgeo [~~ SCtCS;«7;<;7 7 fa Vee yt ergs ED ns pee oe 
CHART 


° 
[ios DFSDHDLO =: 


seco] > 















———/ 
vain > 01] Get real length of t 4\ vats 
ae eng a rn et rea en of segment——-—--—-------. -- —----~—- 
[ ] 5 g i BREEN SIRT [PSTWRKDS 
Pld pee eee eee 
< jee] >] VLDSEG 
ws) Deal with variable 
length segment 
SDB mere 
eee eee ee ceed N [02] Simulate retrieve 
[ |= 
——---—--- positioning 
PST - ; Pst 
a ny rn > 03] If segm is present replace——---—-—-—-----4\ —----- 
[PstweK1 | ON nl ee eft SS EY ae eee ee aig PSTDATA 
—— it. Else get space for jf jf [=-=s== = 
PSTOFFST 
segment eRe arate 
PSTWRK1 
bend \ perenne ee ee oe 
< {ee >] DLZDHDSO 
r--y/ | ——----------------- 
2.6.1 
ro Nee eee OC gGR ee tr: = gph = oe see ee ee een 
ns — 04] Update anchor int in SS atpapaaame 
f j [os] Pa ha SDBPOSC ] 
eee —_— HIDAM and log change eta! 
a p>|| Bae 
[ ] l ———— a [5] Move segment to buffer, a J ‘ [tz R ] 
. update tables aaa 
FDB DBPCB 
Sciireen ae ere = 7, ae AN nae a ac ca ce aenaeaaa 
[ } < Jee] >[{DFSDLIMS [ +} 
CO ni ee ete See SEC E CO Fae es ee. ie asioa EEE sree ee eee 
DLZDDLEO - HDAM/HIDAM a SSE te, Ve eg we Pe ee “HIPOMAT 1.1 Diagram - 2.3.1.5-01 
Notes Routine] Label Ref Notes Routine! Label Ref 
ee BEB key feed back, update level | MWLi |)! 
[oa] The subroutine VLDSEG takes the VLDSEG ae eases 
able. 
length from the PSDB for fixed i wee 
NO! 
length segments. For variable 
length segments from the user's 
I/O area. The compaction exit 
routine is called, if it exists. 
ABEND °863° is given when the 
compaction routine changes the 
sequence field. 
[02] For HDAM root segments DLZDLROO 
did the positioning. For other 
segments it is done here. 
[03] Space management is called to DLZDEDSO | GETSPACE 
get space for the segment. If SPACEOUT 
the segment was deleted in one POSTPST 
path only, i.e. it was not SPACEOK 
removed by DLZDLD00, the segment 
is replaced with the new data. 
[oa] HIDAM root segments without 
PTB-pointers are chained off the 
anchor point in chronological 
sequence. 
[05] Move segment to buffer, update DPSDLIMS }] ANCHOROK 
DLZDDLEO - HDAM/HIDAM- =~ =~ = ~~SSsti<C<;«7«7;}3XRHTSt*é<S;7TC ;SPh ER OMAT 1.1 Diagram — 2.3.1-5-01 
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CHART: ais a 


; PAGE 2 OF 
Processing Output 
Sacateeateteatene > [06] Update prefix +--+ 
—_ —~3\ Sei 
{07} Log inserted segment ——y/ 
BUFFER 


acmnaiatanatatmiaat d 08] Update prefixes of parents--—------— 


and twins, and HDAM root 
anchor points and log the 





changes 
Py 
sasdesas 
waaay] 
V7 
Vv 
TO DLZDXMTO 
CHART 2.3.1 
STEP 3 
DLZDDLEO - HDAM/HIDAM SOS Ae Tene ean ye ego ee “HIPOMAT 1.1 Diagram - 2.3.1-5-02 
Routine| Label Ref Notes Routine/| Label Ref 
[os] The prefix of the segment is 
updated : physical twin ptrs, 
physical parent ptr, logical 
parent ptr, logical twin ptrs. 
[07] The data base log module is MYPREOK 


called to log the inserted 
segment. 


{os} Call space management to update 
the bitmap if required: update 
prefix of physical twins, 
logical twins and physical 
parent. Update anchor point for 
HDAM root segments, call the 
data base log module to log all 
changes. 


DLZDDLEO - HDAM/HIDAM 


TOSPACE | UPBITMAP 
DLZDHDSO | BITMAPOK 
UPPARENT | HDDANCOR 
UPPREFIX 


i a a ee ee ce re men cnn rm ae cc a a i ce 


HIPOMAT 1.1 Diagram - 2.3.1.5-02 
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CHART: DFSDHDIO 
2 PAGE 10F 2 
Input Processing Output 


a a ne ta A ne a a a a a a ee a a ne 


FROM DLZDDLEO 
CHAR’ «3. 


STEP 2F 


ecoee| > 


e 
[il N DFSDHDIO: 





———;/ 
pei > [e2] Get real length of segment. aN ai 
a en gy ee ee ea. ew mew ING pee eee ee 
( ] : cgi TOES 1) [perwexDs~") 
7, oe IN sia cb esas gee 
< [ee] >] VLDSEG 
Newral [morn - 
Process variable 
length segment 
pinks >1}02) Lf i esent lac aN pike 
[petanni [2] 1£ segm is present replace———-———-——""»|_— eee 
a it. Else get space for Saeceeen 
segment mk 
way ee eeest—<i<‘“i*éi‘<i‘C CCsi‘<‘i(YSCOC ehealaaarrrane 
<_ jee] >| DLZDHDSO 
cose] SS 
2.6.1 
Vee ace 6 gCB Se a ==! updat " ; ? “SDB. pieces 
[ ce ene = (°3] jpdate anchor point in [soaposc —] 
ieee apere new aoe HIDAM and log change a 
ve SDB == Pant LEVIAB CS 
I/O AREA fo | | meg = ics BUFFER 
a ] ween tN [o4] Move segment to buffer, -----~----- | a 
ny / (ai nici een 
update tables 
FDB ° DBPCB 


a Oe A A a i a a a 7-1 eee 


ienaen (2) =o — 














DLZDDLEO - HDAM/HIDAM Tag t ees ie ee HIPOMAT 1.1 Diagram - 2.3.1-6-01 
Notes Routine] Label Ref Notes Routine! Label Ref 
{02} When this entry to this routine DFSDHDIO 

is used, DLZDLROO had done the 
positioning. 

[o2] Space management is called to DLZDHDS0 | GETSPACE 
get space for the segment. If SPACEOUT 
the segment was deleted in one POSTPST 
path only, i.e. it was not SPACEOK 


removed by DLZDLD00, the segment 
is replaced with the new data. 


{03} HIDAM root segments without 
PTB-pointers are chained off the 
anchor point in chronological 
sequence, 


[o4} Move segment to buffer, update |pFSDLIMS]ANCHOROK 


PCB key feed back, update level MVVL1 
table. GETKEY 
NOFIELDS 
DLZDDLEO - HDAM/HIDAM == = = ~~~S~<CS;«7;3}XETté<;7<CST dE POMAT 1.1 Diagram - 2.3-1-6-01 
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CHART: DFSDHDIO 
2 0F 2 





: PAGE 
Input Processing Output 
co nc ai ae > 05] Update prefix woe 

PSDB -- —I\{ 0 p----+--~--. 

C aa —| [os] Log inserted segment --17 

spp fff Tn 

ees BUFFER 

== ee ym a tt ce a een Sp [07] Update prefixes of parents-—---—----—--— 


and twins, and HDAM root 
anchor points and log the 








changes 
[28] 
Vv 
TO DLZDDLEO 
CHART 2.3. 
STEP 3 
DLZDDLEO - HDAM/HIDAM SS Se Peay ere a, at “HIPOMAT 1.1 Diagram - 2.3.1.6-02 
Notes Routine] Label Ref Notes Routine} Label Ref 
[05] The prefix of the segment is 
updated : physical twin ptrs, 
physical parent ptr, logical 
parent ptr, logical twin ptrs. 
[oe] The data base log module is MYPREOK 
~~ ealled to log the inserted 
segment. 
[07] Call space management to update {TOSPACE | UPBITMAP 
the bitmap if required: update DLZDADSO | BITMAPOK 
prefix of physical twins, UPPARENT | HDDANCOR 
logical twins and physical UPPREFIX 
parent. Update anchor point for 
HDAM root segments, call the 
data base log module to log all 
changes. 
DLZDDLEO - HDAM/HIDAMSS—~—sSsSSSSSSS TN HIPOMAT 1-1 Diagram - 223-1-6-02 
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CHART: DFSDXNTO 
10 1 


; PAGE FP 
Input Processing Output 
FROM DLZDDLEO 
CHART 2.3.1 
e 
et1\ DFSDXNTO : 
cece] > 
preerieatcans | 
[DmBriac _] | 1-----------> Call DLZDXMTO if segment 
is indexed 
[SDBTFLAG ] 1----------- If segment was LP insert 
~ LC now 
“LEVIAB | ~~=SDBOSS™ [Ssh qeseeee —- 
eee a eee ne For LC segments: {771 > LP-SEGMENT 
secede cal PITTIITTTIIN 7 Sores nate 
2 --- PSDB --- A. Update pointers in LP 
PSTUSER ae ae ee ee 
ca cee ae [ } or counter 
one. aer B. Replace data of LP if 
| it was not inserted 
a ci ahaa ina before 
LEVTAB —--t\ ee 
eS 1 ae For PATH ISRT insert next ------—---!)--4/ [PSTUSER 
ee SN — segment 
“""PSTSEG~~—SCORS 
Clean up and return nnn penn en pene 
Boe ease oan, {20000000 [20000000 ] 
l sdX pie SE Se 
pt 
pie is PSTSEGL 
eeeeoeee ee et a ee 
| [00000000 
N/ ei a ee eam a) 
Vv 
TO DLZDDLEO 
CHART 2.3. 





DLZDDLEO - DFSDXNTO ENDING ROUTINE FOR NOT LOAD 


Routine} Label 


Notes Ref 
{oi} Index Maintenance is called to 

build the primary or secondary 

index for an index source 


segment. 


If the ISRT call was for a 
concatenated segment, the 


[oz] NXTLEVIS 
destination parent was inserted 

first - if it did not exist 

before the ISRT call - . The 

next step is to insert the 

logical child segment.The insert 

process is repeated from Chart 

2.3.1 step 2F on. 


A. The ‘logical child first’ and 
the ‘logical child last‘ 
pointers in the logical 
parent segment are updated, 
or the counter, if 


NOTTARG 
STLPADDR 


relationship is 
unidirectional. 


B. If the ISRT rule of the 
destination parent is virtual 


NOADD 
FIXREP 
and this segment existed 

already, then the data of the 


DLZDDLEO - DFSDXNTO ENDING ROUTINE FOR NOT LOAD 





Licensed Material 


HIPOMAT 1.1 Diagram - 2-3-1.7-O1 


Routine} Label 


Notes Ref 


destination parent is 
replaced. DLZDXMTO is 
to replace the index, 


called 
if the 
destination parent is an 
index source segment 
*PSTXMRPL* . 


[oa] If there are more segments to be 

a inserted in a PATH, then point 
to next segment in I/O area and 
continue with Chart 2.3.1 step 
2. 


HIPOMAT 1.1 Diagram - 2.3.1.7-01 
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FROM DLZDDLEO 
CHART 2.3.1 





ae a nm tc 


Cy Eee r aenee >| (33 


a te ye Ne eS a i a 











CHART: HIISNXLV 
: PAGE 10F 1 
Processing Output 
HIISNXLV: 
ny ema ene ances emcee mn ee can i ck mn in eee aoe ema 
as [o2] Write work data set for LC-~-——--~--~-— 1 PSTWRK1 
PRET MES aan LLU 1 aa pareee 
and LP segments La /f 
(DBPCBLKY _ 
02] Build index for index 
source segment 
cae AY 
Load next segment for PATH-~-----~--S av, PSTUSER ] 
ISRT aoa . 
[o4] Call DLZDxMTO for UNLD 
call 
a ~~" PSTSEG Or BER Ss 
[os] Clean up and return een ~>+7rr ee enema crenenam anes 
LeUR Np eS a ee || ees, = re 00000000 00000000 
pS 
PSTSEGL 
ee a a ee 
th [00000000 ] 
V7 tea aaa te asec ag oases oenans 
Vv 
TO DLZDDLEO 
CHART 2.3.1 


DLZDDLEO = “HIISNXLV ENDING ROUTINE LOAD MODE 





ae ae te eS a i ty Sh a neste eee 


Notes 


{01} If the segment just loaded was a 
7 logical child or a logical 

parent segment, DLZDSEHO is 
called to write the work data 
set. If opening of the work data 
set failes due to ‘ASSGN 
SYS013,IGN* and the segment was 
an LP processing continues. On 
any other open failure ABEND 864 
is given 


If the segment is an index 
source segment DLZDXMTO is 
called. It writes the work data 
set or writes the index pointer 


[22] 


segment directly 


For PATH ISRT the pointer to the 
I/O area is updated and 
processing continues with Chart 
2.3.1 step 2 


DLZDXMTO is called to inspect 
all PSDB‘'s of that DMB for index 
source segments and builds an 
FF-key index pointer record for 
it 


DLZDDLEO + HIISNXLV ENDING ROUTINE LOAD MODE 
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“HIPOMAT 1-1 “Diagran - = 2.3. 3.1-8-01 


ee a or ae ne a ce a en en Hn OR ee Ne a Net een ne 


Label Ref 


re ee oe a ein een amee | ements | ame ainnny anes | amuse mmc tne 





Notes Routine 


CALLERN 
CALLWORK 


NOTLOAD 
NCALLNDX 


NOINDEX2 
NXTLEVLD 


a ee a ne eee 
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CHART: DLZDLDOO 
1 OF 1 






















s PAGE 
Input Processing Output 
From pibzpraoo [|  &»&©=©=© )©)©—©— ee eee 
CHART 2.1.1.1 
e 
: mat N\ DLZDLDOO: 
ecco} > 
pee pepeg aad 
[bercaKro 7 {o2] Initialize addresses and 
pacientmihees [ oe J 2. check that key field has 
sca rs not been changed 
pcre ee Ret RNS nie ee ~----------> [02] If call is REPL 
JCBPRESF | 
eeeen al PPLAN pasa 
< les) >] REPLACE 
52% rocess replace 
204.121 
[o3] If call is DLET and data 
base is HISAM 
Pde EN pene earn eee 
< Jee] > 
| totem EA ee ee et ee ee 
Process HISAM 
delete 
2-4.1.2 
[os] If call is DLET and data 
base is HIDAM or HDAM 
74 AN inci cs a as lla aad Sie 
< fee] > 
(cen CAME benpeeieguneninesreentaieetal 
Process HD/HID 
delete 
2.4.1.3 
x R15 
[os] Return to DLZDLA00 with -—------------ ae Oe el 
= Rea te 7 RTN CODE ] 
return code in R15 | wenn 
[oseccese 
ee | 
Nr 
Vv 
TO DLZDLA0O 
CHART 2.1.1.1 
DLZDLD00 - DLET/REPL-MODULE a a ae aa oe a ~HIPOMAT 1.1 Diagram - 2.4.1-01 
Notes Routine| Label Ref Notes Routine| Label Ref 
{02} The segment to be deleted or DLZDLDO0| REPCKO1 
replaced is identified by 
contents of JCBLEVIC. Position 
is established by DLZDLROO in 
previous call. 
{02} REPLACE 
[03] DELETE 
[o5} If a user error occurred, REPLDONE 
DBPCBSTC has return code. If 
abend, PSTERCD1 has abend code 
and registers are saved at 
SCDABSAV+*8. 
DLZDLDOO-DLET/REPL-MODULE| == + ~ BGMAT 1.1 Diagram - 2-4.1-01 
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SHBRTs BEELACe 


need 


: PAGE OF 
Input Processing Output 
- ‘> Oa, Were tes bane FROM DLzpEpoo [| = 7 
CHART 2.4.1 
STEP 2 
REPLACE: 
[o2 Set address, length, and ---~~--~-——- 
offset of segment 
ne “"PSTUSER~S~PSTWRKD2~—S 
[02] Insure data changed and ermeneemrineren, —petrnmmenageeamrenanen 
-- ; {acsecm) | [LEN ] 
key field not changed = EERE ET CBee eraee nas) 
tea | 
03 If ti Le PSTWRKD1+ 2 
segment is an es acne 
[03] om : OFFSET ] 
A. Insure LC can be 
replaced 
B. If data changed, 
Jbmod\ Sa ne ree Ree aE ene sare Oe ee 
<_ [ee] >/DOREPL rs 
Ne--a/_ | ---=-------------- 
Replace LP 
] 2.4.1.11 
eo $25 Sie se Seer Paginas ee So BUFFER 
——— 4\j]O04&} Replace segment —~I\ en 
mene reevtememnenny if [04] P a a/ 
USER SEG! 


< pee] > 


Replace aegnent 


eil 


05] If another level to 


replace, go 
Exit at end. 


DLZDLDOO ~ REPLACE FUNCTION 


a a a a a ee ce a te enn se esti wie oe a ce ae oe a ee 





Notes Routine} Label Ref 

[oz] PSTUSER will have new value if REPLEVO3 
path call had been made. The REPLEVO7 
length is taken from the first 
two bytes of I/O area if segment 
is variable length. The offset 
is from PSTDATA to the segment 
data in the buffer. 

{o2] Additional logic is needed if CHKREPL 
segment is variable length or if CHKREPL1 
PROCSEQ is specified. 

=) 

A. Al : The following checks are CHKREPFF 
made for the LC : CHKRLP 


a) Neither the physical nor 
logical key fields can be 
changed (DA status) 


b) If Lc retrieved from 
logical path and rule is 
physical, RX status code. If 
rule is logical, no replace 
and blank status code. If 
rule is virtual, OK to 
replace LC 


DLZDLD06 - REPLACE Function 
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to Step 1. 





Vv 
TO DLZDLD0O 
CHART 2.4. 


ae a a an a a a a a i nc a tee nin 


HIPOMAT 1.1 Diagram - 2.4.1.1-01 


Label Ref 


on a a ae a ne fee fee ee | eee 


c) If Lc retrieved from 


Notes Routine 


physical path, OK to replace 
Lc 


A2 
made for the destination 


The following checks are 


: 


parent 


a) If data didn’t change, no 
replace 


b) If replace rule is 
physical, RX status. If 
logical, no change and blank 
status. If virtual, the key 
of the LP can not be changed 
(DA status). The segment can 
be replaced 


This replaces the LP, if Lc 
will also be replaced. 


REPPARO1 


[04] This replaces normal segment, REPFINAL 


Lc, or LP if LC not changed. 


[os] Another segment in hierarchy can 
~~ be replaced, if path call. 


LEVDONE 


HIPOMAT 1.1 Diagram - 2.4.1.1-01 
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CHART: DOREPL 
10F 2 

















: PAGE 
Input Processing Output 
FROM REPLACE = pos Saag op Sg eae tar ean en 
CHART 2.4.1.1 
a 
aos DOREPL: 
sees] > 
Paar er a SRBRLAG ook 
Sahetaastenientetesatatee > [02] If segment is indexed and 
orca Ne | ~~ not marked physically 
eee eee S deleted 
DELETE BYTE | A. Go build work area for -—--- ES ee 
Index Maint 
Seseeebet eh cet tte eee 
eee area B. Call XMT 
a acre a ce a a ae en an nt me cep a cae ae aoe a DELETE WORK 
Pi AREA 
< [ee] >{DLZDKMTO 7 
Neraa/) | —--------------- 
REPL, index 
inter(s 
ae 2.5.1 
DBPCBSTC 
(7 —--—-- = ] rotenone teeter > c. If blank or NE status, 
am — continue 
DMBVLDFG p= 7 Py 
ears 02] If segment is variable 
cm miy = length 
ss i 
A. 
74 oe EN ri aie Sa ene acess 
< [ee] > REPVLSOO 
Newry focrst to 
Replace variable 
2-4.1.12 
B. Go to Step 5 a-IN pe 
e oe > fost 
—y/ NZ 
DLZDLDOO - DOREPL REPLACE DATA Pe ee ge HIPOMAT 1.1 Diagram - 2.4.1.11-01 
Notes Routine] Label Ref Notes Routine| Label Ref 
[02] Index Maintenance needs the DOREPL 
actual concatenated key of this DOREPL6 
segment. If return code is NE, 
we continue processing because 
index is now set as per new 
data. Work area is freed. 
[02] DOREPL10 
DESDEDOD © WORREY Replace Dake? OT ne ee ee eae HIPOMAT 171 Diagram - 2s4~1211-01 
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Input 


Processing 


BUFFER 








CHART: DOREPL 
PAGE 2 OF 2 


Output 





SES IDES nA Ce RE a. i 
Ste -: [o3] tog old data in buffer T7777 | e 
OLD DATA 
pense Te MesdN: tees a i 
nn — <_ fee] >] DLZRDBLO 
uo phys. Repl. code 
1.4.1 
USER I/O 
a ny ee ead NN [04] Move new data to buffer ern eK 
NEW DATA ]----——-~--—— EY 5 SS / 
FROM 05] Log new data 
STEP 2B [25] 
awe tN, 
fosl=i > 
a PlescdX: pee se oo eS 
< |e*| >/DLZRDBLO 
New-a/) | ——-—--------------- 
Phys. Repl. code 
1.4.1 
[es] Mark buffer altered wee nn NN 
woe / 
PRBS, pew ee 
<_ fee] >] DLZDBHOO 
PSTBFALT 
; 1.3.1 
{07 Exit 
Vv 
TO REPLACE 
CHART 2.4.1.1 
DLZDLD00 - DOREPL Replace Data ee ee ae ~~ . 
Notes Routine} Label Ref Notes 

















[03] DBLPHYR*DBLPHYRO is set in first DOREPL12 
byte of PSTWRK1. DOREPL13 

[o4} The address of the user's I/0 DOREPL15 
area is in PSTUSER. 

[os] DBLPHYR is set in PSTWRK1 with DOREPL92 
the length of the segment. REPL18 


DLZDLD00 - DOREPL REPLACE DATA 
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PSTWRK1 


PSTFNCTN 


HIPOMAT 1.1 Diagram - 2.4.1.11-02 


Routine] Label Ref 


ee wr srr ae ee me re re ae ene ea a ee a a a ne ee a ee 


HIPOMAT 1.1 Diagram ~ 2.4.1.11-02 





























CHART: rere 
PAGE 1 OF 
Input Processing Output 
oe ~ Ti ae FROM DOREPL ae Cea ee Pie pO 
CHART 2.4.1.11 
STEP 2A 
a 
Loy REPVLSOO: 
poren Oe 
DELETE BYTE ~~. 
(rae {02} If data separated from 
nee ey refix now 
seus 1...] . 
oy ttarm ties! c= [hwnd \ site re 
< jee] > REPVLS50 
Newey | nnn - 
asta separated 
and go to step 4 awed Me pees 
4 
[eee >[4] 
“BUFFER PSTUSER _ BUFFER 
os ranean aes TT a ee - [02] If new length GT old meee 
---- BATAD ] Ir : length and GT minimum : 
OLD SEGM ener een eran meen Sanaa 
Tage ae nn PbSaVY Spee ae aes Pe Se Same 
—--+----~ < Jeet > REPVLS30 -<---~----- 
[sew DATA] ro" |Separate data fron 
simatic cas cenamcaeces prefix 
and go to step 4 [e=o1 >[3] 
a—a—y/ be 
a) [03] Process condition that new oo 
ag length is equal to or LT , 
old length 
Plwnd\. poaacewes tae aia Mace ee rer 
< jee] S REPVLS10 ESE 
XN [ oom | / eave een ee ae ae See en ee ae 
Replace old data 
W-4N 08) Exit 
[=> [oa] 
wevecece 
mice 
N 7 
Vv 
TO DOREPL 
CHART 2.4.1.11 
STEP 2B 
DLZDLDOO. - REPLACE VARIABLE LENGTH SEGMENT i a HIPOMAT 1.1 Diagram - 2.4%.1-12-01 
Notes Routine} Label Ref Notes Routine] Label Ref 
{oi} When the data is previously DLZDLDRO ] REPVLSO1 
separated and the new data 
length is LT the old length, an 
attempt is made to relocate the 
new data adjacent to the prefix. 
[02] When the old segment size is not REPVLSO3 
ae large enough for the new 
segment, the data is separated 
from the prefix. A pointer 
overlays the first 4 bytes of 
the old data and will be used to 
find the new. 
{03} When the new data will fit in REPVLS10 
~ the old location, it is moved 
over the old data with any 
excess bytes being freed. 
[04] All changes to the data base REPVLS38 
~~ have been logged. 
DLZDLD00 - REPLACE VARIABLE LENGTH SEGMENT OT ENE] SS ee erage sR Yea T Seay { HIPOMAT 1.1 Diagram - 2.4.1.12-01 
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Input Processing 
ice pe FROM _DLZDLDOO 
CHART 2.48. 
| 
ely DLZDLD00: 
eeee|] > 
a/ 
BUFFER POOL i 
aclu \ [03] Get segment to be deleted 
Saas care gate a/ - 
OLD SEGM Pisano ee oe 
eres < [ee] >] DLZDBHOO 
feces | re" |pspBYLeT function 
1.3.1 
DMBORG — 
| on > [02] If data base is Simple 
HISAM 
A. Indicate physical wee nnn iN 


meee / 


delete for Logger 











B. Indicate PSTERASE for 
Buffer Handler 0000000 7777 TTTTT" - 
7 i. 
7/t > 
<ay/ 
[03] If data base is HISAM 
1\ 
77 
A. Set proper delete bits Viv 
WIITIT7T777 
B. Indicate logical delete---- cam | 
Sar | ——4\ 
for Logger ——-+/ 
C. Indicate PSTBFALT for -—-------—--. 
Buffer Handler | 
JN 
—--3/ 


ee 


ae aaa cance mie: 
DLZDLD00 - HISAM DELETE PROCESSING 








Routine} Label 





Notes Ref Notes 





[oa] DELT40 

[02] The entire segment to be erased SHISAM 

; is logged. 

[03] Only the segment code and delete DELT41 
byte are logged. LOGDLT 


a ee SP Ee RR SR a SN ES IE A eee a 


DLZDLD0O0 - HISAM DELETE PROCESSING 
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CHART: 


DLZDLDOO 
PAGE 1 0F 2 


Output 


PSTWRK1 


DBLPHYD 


LEN OF 
SEGM 


PSTFNCTN 


PSTFNCTN 


[pereract 


ee ee. 


HIPOMAT 1.1 Diagram - 2.4.1.2-01 


Routine] Label Ref 


HIPOMAT 1.1 Diagram - 2.4.1.2-01 





CHART: DLZDLDOO 
PAGE 2 0F 2 


Processing Output 
= ———4\ sore 
[04] Log the change = ----—-~— ets | lo / 7 \ 
i J 
N / 
iA aN See Ses 
<_ [eel >[DLZRDBLO ips a 
Npwnra | —--------- ----- == LOGOUT 
1.4.1 





PSI: jes Scene 
< jee| >{pizpBH00 
eu" \PSTPNCIN. 
23.1 
Vv 
TO DLZDLDOO 
CHART 2.4.1 
STEP 5 
DLZDLDOO-HISAM DELETE PROCESSING a ae a “HIPOMAT 1.1 Diagram - 2.4.1. 2-02 
Notes Routine| Label Ref Notes Routine| Label Ref 


DLZDLDOO-HISAM DELETE PROCESSING 


HIPOMAT 1.1 Diagram - 2-4.1.2-02 
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Processing 


a ee ne ee ee ne ee a ee, 


FROM DLZDLDO0O 


CHART 2.8.1 
STEP 4& 


PSDB*s 


ee eee serene he 


ee | 


BUFFER 


ne A i ly A le me 


DLZDLD00 ~ HD DELETE PROCESSING 





A. LC will be marked logically 
deleted (LD) if delete rule = 
physical or logical and 
segment not PD (physically 
deleted). 


B. A logical parent can have no 
active logical children. An 
LC must not be accessable by 
his logical path. 


[o2] This is needed to remember where 
we are during scan of data base 
and to build concatentated keys. 


[o3} LCF and LCL pointers in logical 
parents, LTF and LTB pointers in 
logical children will be updated 
now. 


[oa] Segments may be only marked 
deleted, not physically removed. 


[05] All work areas are freed. 


A ee tae a a a SE i 


DLZDLD0O ~- HD DELETE PROCESSING 
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sl 
° zh DLZDLDOO: 


or LP 


A. If starting segment is 
an LC retrieved from 
logical path, mark him 
LD, if possible 


B. Insure no violations of 


the physical delete 
rule. 


[02] Build workarea for path 


= [03] Read and process all 


a segments from top to 
bottom. Determine how to 


delete LC or LP 


[os] At bottom, 


ae Delete segment (5) 
2.421231 


eae ce a a a ee a Se 


DLZDLDO0| PHYSCAN 


DELT13CK 


SCANDMB | 
NEWDMB 


SCNHD 
REQDOWN 


REQBOTM 


ENDLTSCN 


~ Property of IBM 


[02] Scan PSDB‘s looking for LC 


waiesocneod, 





Vv 
TO DLZDLDOO 
CHART 


CHART: DLZDLDOO 
PAGE “1 OF 1 
Output 


a re a re ne te ae cee ee ee eee ee ee oe. 


DELETE 
WORKAREA 


BUFFER 


HIPOMAT 1.1 Diagram ~ 2.4.1.3-01 


HIPOMAT 1.1 Diagram - 2.4.1.3-01 





Input Processing 
~ FROM DLZDLDO0O erg a ie fh a Np we Ose ry 
CHART 2.4. 
STEP 4& 
l 
el_sj\ | REQBOTM: 
eooe} > 
7 
DMBFLAG = : 
wot > [or] If segment is an ISS woe tN 
af 2 aD 
Jlund\ ee en A ey at CT 
< fee| >]DLZDxMTO 
Newrd [aoc 
cos deh index 
inter 
a 2.5.1 
=""BSDB's pecan een 
Siete coi ——) [02] If segment cannot be sg 
Bae eae VIVIVIVIIITTT 
SeaS erase <= J : removed, mark PD, log, and@~~-~-~~-----|/ 


DELETE WORK 
AREA 


DLZDLD00 - PHYSICAL REMOVAL OF SEGMENT 





[02] If the index source segment 
(ISS) has been marked physically 
deleted (PD), no index 
maintenance is performed. Delete 
processing continues with blank 


or "NE* status from DLZDXMTO. 


{o2] A segment will not be physically 
removed if still required 
because of a logical 
relationship. Note that the 
delete work area and DL/I blocks 
(primarily PSDB*s) are used as 
input to every step. 


If segment is an LC or LP, the 
logical relationship pointers 
(LC,LP,LT) have already been 
changed. 


The current position (SDBPOSC) 
is marked ‘lost" in this 
caller*s PCB. If any other PCB 
has position on this segment, 
the position should be changed 
to bypass this segment. 


DLZDLD00 - PHYSICAL REMOVAL OF SEGMENT 








go to Step 6 


[o3} Change all pointers to 


this segment 

Jlm—tN 

< jee] > 
[ cco) 


Log pointer 
changes 


[08] Mark position changes in 
SDB‘s 


Routine} Label Ref Notes 





DLZDLDD0 | REQBO1 


REQBO2 


DLZDLDD0O | FREESPCE 
DLZDLDAO | FRSPCOO 


DLZDLDAO]} FRSPCO5S 
MARKSDB 


Licensed 


Material 


- Property of IBM 


CHART: REQBOTM 
PAGE 10 2 


Output 


PSTFNCTN 


[zerecer: 





SDB 


SDBPOSP 


SDBPOSC 


HIPOMAT 1.1 Diagram - 2.4.1.31-01 


Routine! Label Ref 


HIPOMAT 1.1 Diagram - 2.4.1.31-01 
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DLZDLDO0O - PHYSICAL REMOVAL OF SEGMENT 


[os] DLZDHDSO makes the log calls for 
the physical delete. 


[06] 


[07] At end, a final log call is made 
to DLZRDBLO which signifies 
delete is finally accomplished. 


DLZDLD0OO - PHYSICAL REMOVAL OF SEGMENT 
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Processing 


[05] Free segment‘s space 


Piet \, pis es 
< jee} >{pLzpHDsO 
N\e-—-1 


06] If starting segment not 
yet deleted, back up to 


parent and go to Step 1 


Exit 


aay / 


CHART: REQBOTM 
PAGE 2 0F 2 
Output 


PSTFNCTN 


[PSTFRSPC } 





DLZDLDAO | FRSPCO5G 


DLZDLD00 {| BOTM1A 


DLZDLD00 |] ENDLTSCN 
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Vv 
TO DLZDLDO0 
CHART 2.4.1.3 
STEP 5 
eo ee eee ee HIPOMAT 1.1 Diagram - 2.4.1.31-02 
Routine| Label Ref Notes Routine| Label Ref 
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CHART: DLZDXMTO 
PAGE 10F 1 


a ae te a a ee ee a a a a a ne a a ce 


Input Processing Output 
7 - FROM CALLER 
(NOTE 1) 





e 
[las DLZDXMTO: 




























hei Wig 
PST Peers = ; ro} ana aese, 
an a a FTN 01} Save registers, save PST --—-- ————— yv777 XMAINT 
PSTIQPRM |------—-— 4 . : ----------~ wo 
——————— fields in XMAINT workarea {| J beeen nrnnrern ne ee 
PSTDBPCB 
PSTUSER _ 
aon fp >}]{02] Analyze function 
PSTDSGA [02] a 
PSTBYTNM 
JCBPRESF A. ISRT - ASRT 
TB, i ain een otter wha cabanas 
ae ney = == < jee} >| LINSERT 
PSTFNCTN r-n-1/ | ——----------——---+- 
awe cm Insert new XPS 
PSTWRK1 2.5.1.1 
B. DLET 
fb--3\ —— Screeners, 
< fee} >[ LD 
Neen’ | ------------------ 
Delete old XPS 
2-5.1.2 
ce. REPL ee saeaats 
PUesdS,. peewee cee aoe 
< [ee] >[LREPL 
Nera | 
Replace XPs 
2.5.1.3 
D. UNLD 
74 oe oi i ae ae 
<_ Jee] >} LUNLOAD 
a Insert FF-key 
2.5.1.4 
Susur ae : Gyo PST 
[03] Restore registers, restore—————-———— 4\ ee 
ay 4 PSTIQPRM 
PST ener cence ene geen 
PSTUSER 
PSTDSGA 
PSTBYTNM 
PSTDBPCB 
DLZDXMTO —- INDEX MAINTENANCE iy | ay ey eee ape vee ~HEPOMAT 1.1 Diagram - 2.5.1-01 
Notes Routine] Label Ref Notes Routine} Label Ref 
Tee new XPS, -delete old and {| {~~ Y| 
[0a] DLZDXMTO is called from DLZDDLEO : 
_ insert new XPS, - replace 
and from DLZDLDOO. 
data of XPS. 
Index target segment will be ; 2 
; D. Write XPS with all FF-keys 
abbreviated - XTS - index source : 
2 for all index data bases 
segment - ISS - index pointer . . 
belonging to this PCB, if 
segment - XPS. ‘s 
DLBL card is provided. 
02] Functions are ISRT - ASRT - UNLD 
~ REPL when called from 
DLZDDLE0O. REPL - DLET when 
called from DLZDLD00. PSTWRK1 
contains the PSDB address of the 
ISS for DLET, else LSDB address 
of the ISS. 
A. Construct and insert all XPSs 
for this ISS, that should not 
be suppressed . 
B. Construct and delete all old 
XPSs existing for this ISS. 
Cc. Construct all old and new 
XPSs that can be constucted 
from that ISS. Depending on 
the data changed and the 
status of suppression -only 
delete old XPS, -only insert 
DLZDXMTO - INDEX MAINTENANCE SO™O™~SO SSS SSS SETPOMAT 1-1 Diagram - 2-5-1-01 
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Input Processing 
| LINSERT: 
e 
1 SDMBs fo) oo. peewee eee ar = 
Po isi | pigs 
ee Ses Seiichi pup hPa 41, 
NOTE 006 
st—4 





rrr ee te 
0 
Fhwnd\ p——-—-— 


output 


| pam. 


= x! 


NOTE 006 








<\ Lee) >] LGETREY 


corr 


Construct XPS 


a a a re ae a eee nee eee 


[°3] If xPS is suppressed take 
next sec. list, 


Jrtu-3\ nner 
< jee] >{LBUILDBL 


Nenn 





(-281 >] 


else: 


{o4] If initial loaa 





<jeej >[troaD SCS 
row lput XPS 
Else not load mode 
PEIN, fe 
<\fee] >[EBLDCALL 
ee " \call DLZDLAOO to 
insert XPS 


[05] Take next secondary list [2221 '> [i] 


DLZDXMTO - INDEX MAINTENANCE 


Notes Routine] Label Ref 
[0] Find SECLISTs and PSDBs of LFINDLEN 
ISS,XTS, XPS save their address RETURN1 
in XMAINT workarea. Decide if LABND77 2 
primary or secondary index has 
to be built. Find length of XPS, 
sequence field, segment length 


and protected data length. When 
last secondary list is reached, 
exit is to -~ RETURN1 -. On error 
in sec. lists exit is to - 
LABND772 ~ abend code 772. 


LGETKEY 
LSYSRLD 
LSUPRESS 
LCALLEX 
GOTOBUFF 


For primary indexes move HIDAM 
root sequence field from user 
I/O area to workarea. For 

secondary indexes construct 


SRCH, SUBSEQ and DDATA fields. 


{o3) When the index entry has to be 
suppressed due to SRCH equal to 
NULLVALUE or due to exit routine 
return code, the XPS is not 
inserted, 


Build temporary blocks: SDB - LBUILDBL 
segment name = sequence field 

name of XPS update XMAINT JCB 

and DSG. 


ee SS A A A ee 


DLZDXMTO - INDEX MAINTENANCE 


186 Licensed Material - Property of 


eo a ne Se a a a Se en a 





Notes 
[04] Write XPS to index data base, if 
DLBL cards are provided. Else to 
workfile, call DLZDLOCO to open 
index data base, if not open 
yet, Or DLZDSEHO to open 
workfile. 





NOT LOAD mode : Prepare DL/I 
call list to call DLZDLAOO with 
an *X call. 


{06} These DL/I control blocks are 
used in all process steps as 
input. XMAINT workarea is 
referenced and modified in all 

' steps as well. 


“HIPOMAT 1-1 Diagram - 2-5-1-1-01 


CHART: LINSERT 
PAGE 10F 1 


a a a a re a ne ee ae eS ay A a ae a ae Ee =O 


a a a a a a a a a ae ae ee ee a a a a 


Routine] Label Ref 


Cee a ee 


LLOAD 

LWORKTAP 
GOTOBUFF 
DLZDLOCO 


LBLDCALL 
DLZDLA00 


ec ee ee ne a a ne ee a re oe ce a a Ee a 
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CHART: LDELETE 
PAGE 1 0F 2 
Input Processing Output 
FROM DLZDXMTO ne SPO Ht wee Cae 7 
CHART 2.5.1 
P 2B 

2 

[sists LDELETE: 

eose| > 

——4/ 
DMB peccabemiak piety SSeieh) testo 
scene eee XMAINT ~~--------->] [01 aewceeal pea XMAINT 
{ RENE | f [02] aOR HE RK } 

NOTE 009 on pepe 
SDB NOTE 009 |. . 
pied eene mere fiale) > : 
[ore neal dics Cal RA Teer ree eee 
a rn rn nn <_ jee} >) LFINDLEN 
Ey Find sec, lists and 
length of XPS 
{02} 
Phand\ 


Newrnd/ 


Shewd\ 
<_ fee] > 


[4] 


Themed 
< feel > 
Nernd / 


zero 





A a a ee ee a ec ae a ae ee 


DLZDXMTO = INDEX MAINTENANCE 





Pe A A A A A TR SRT ee 








Notes Routine} Label 

[oi] Find SECLISTs and PSDBs of ISS, |LFINDLEN 
XTS, XPS. Save their addresses RETURN1 
in XMAINT workarea. Decide if LABND772 
primary or secondary index has 
to be built. Find length of XPS, 
sequence field, segment length 
and protected data length. When 
last secondary list is reached, 
exit is to - RETURN1 -. On error 
in sec. lists, exit is to - 

LABND772 - abend code 772. 

[02] For primary indexes move HIDAM LGETKEY 
root sequence field from LSYSRLD 
DLZDLD00*s workarea. For LSUPRESS 
secondary indexes construct LCALLEX 
SRCH, SUBSEQ and DDATA fields. GOTOBUFF 

[03] When the old index entry was 
suppressed due to SRCH equal to 
NULLVAL or due to exit routine 
return code, process continues 
with stepl. 

Build temporary blocks: SDB - |LBUILDBL 
segment name = sequence field |DLZDLOCO 


ST caeabemataateeenmnad 





DLZDXMTO - INDEX MAINTENANCE 


[93] If old xPS was suppressed 
take next sec.list, else: 


0 ae A eS OE A Yh 


te mae se oe ae eer ee oe 


a A ee A ee 
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< jeej > LGETKEY 


Construct old XPS” | 


ae ee ae a a a a wee a ee a ne 


[21> fal 


LBUILDBL 


re ee ee re ee ee 


Build temporar 
blocks ae % 


GOTOBUFF 


Call Dpapauad to 
read old xps 


A a a ee a ae a a 


[05] Change delete flag and 


ptr in XPs 


oe a A ye A a = 


HIPOMAT 1.1 Diagram - 2.5.1.2-01 


a SO I A YP AE a A A A A PY 


Routine} Label Ref 


name of XPS. Update XMAINT 
JCB and DSG. Open index data 
base if not yet open calling 
DLZDLOCO. 


[ou] The buffer handler is called - 
PSTSTLEQ- to find the old xPs. 
If it is not found, or it is 
already deleted, or the pointer 
or key are not correct, an - NE- 
status code is returned to the 
caller. 


[os] Delete flag is set to ~ CO0-. 


a ee a ae ee ne ee a a cS Ey NO A Se ee Shaw Deel eT 


HIPOMAT 1.1 Diagram - 2. 
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CHART: pga a 





: PAGE 2 OF 
Input Processing output 
ee is Sas 
BE tot sa (eee pe lepers went, Bale XMAINT 
{ J [eaten || [06] 3 -- q WORKAREA 
NOTE 009 aa ee 
NOTE 009 
SDB Oy CLARE | gaa aE Io 
Be SEE aes < jee] >[DLZRDBLO 
(ee Noo” \eait Jogger to ios 
om ee ae cane vo i mv eee nr ap ca tonne cue et ee tne XPS changes eer 


[27] 


PloodN, poeen sew eee 
< [ee] >] GOTOBUFF 
\ tr71 7 ee neem ee 
DLZDBHOO is called 
to write back the 
changed XPS 


[08] Continue with next IN - 
“| secondary list [1 fal 


DLZDXMTO - INDEX MAINTENANCE Oa ye at ee “HIPOMAT 1.1 Diagram - 2-5-1. 2-02 
Notes Routine] Label Ref Notes Routine! Label Ref 
[os] Chain maintenance and logical DLZRDBLO 


delete calls are made to data 
base log module. 


{07} The buffer handler is called - 
PSTBFALT- to write the changed 
XPS back. 


[09] These DL/I control blocks are 
used in all processing steps. 
The XMAINT workarea .is 
referenced or modified in all 
steps as well. 


ne YO Oy SS SO OS NS A A NS a A a SH i 
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CHART: LREPL 
PAGE 1 OF 2 























Input Processing Output 
a a eee bon ate Sa re ener FROM, ¢ ie a ar ar nner mene ne nea aan me anenen an ance enna en ee ee at rene eee anne 
2.5.1 STEP 2c 
[oa LREPL: 
a a a ge Fa a nae ie ae ee ee ee er ne eeos y; aN 
DMB ae al -—- on none 
ean cearee XMAINT. ||| p---------=— > siemoncanerinstenied pacaig XMAINT 
{ ] [ae ilk [03] acoeeeae (RRR en | 
NOTE 005 
NOTE 005 
SDB 
icici ae eae fia > 
[ a aaa 
ee JZ peewee sh cewesee nla. 
cen an an me oe a ms ae ee a ee ne a mere < joo; > LFINDLEN 
ew lind SEC.LISTS and 
length of XPS 
02 For prima index continue,s—--1\ 
[02] P rY [: ee] >[2] 
with step 1. ey ie oa 
Else 
Pact) gewansnesusecccisucs 
= [ea] > LGETKEY 
_ Construct old XPS" 
Gy 
flaesS\, pees ewnleu.. pasar cat 
< [eo] LGETREY 
Construct new ‘ew XPS 
DLZDXMTO - INDEX MAINTENANCE ea a Dc i i - “HIPOMAT 1.1 Diagram - 2.5.1-3-01 
Notes Routine| Label Ref Notes Routine] Label Ref 
{oa] Find SECLISTS and PSDBS of LFINDLEN 
Iss,xTS, XPS save their address RETURNI 
in XMAINT workarea. Decide if LABND772 
primary or secondary index has 
to be built. Find length of XPS, 
sequence field, segment length 
and protected data length. When 
last secondary list is reached, 
exit is to - RETURNI -. On error 
in SEC.LISTS exit is to - 
LABND772 - abend code 772 
03] Construct old XPS from SRCH, LGETKEY 
SUBSEQ and DDATA fields LSYSRLD 
LSUPRESS 
LCALLEX 
GOTOBUFFP 
[03] Construct new XPS from SRCH, LGETKEY | LKEYic 
SUBSEQ and DDATA fields. Entry LSYSRLD 
to LGETKEY is at LKEYIC LUPRESS 
LCALLEX 
GOTOBUFF 
DLZDXMTO —- INDEX MAINTENANCE i sree Pe ee See ee ae pee, as HIPOMAT 1.1 Diagram - 2.5.1-3-01 
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CHART: LREPL 
PAGE 2 OF 2 























Input pee Processing Output 
a el ee = ee i eee “a 
BBR] ET ertsce as Sa’) |oRtaen | 
NOTE 005 NOTE 005 
SDB A. If old and new XPS are 
a suppressed, take next [e=1 >foat 
Sea SET ae ee ee a SEC. LIST REM 
B. Old XPS was suppressed 
- only insert new XPS 
Phat \; pce nse 
<_ [ee] >[LINSERT 
rm" \Insert new XPS. 
Cc. 014 XPS was not 
suppressed, SRCH and 
SUBSEQ fields not 
changed - replace xPS 
D. The old XPS was not 
suppressed and SRCH or 
SUBSEQ fields were 
changed 
Pheed\ poennn ne -- -- 
eS) Be aa — | 
Delete old xPS 
Peo3S, Genco sence 
< Jee] >]LINSERT 
("17 |Togert new XPS 
[os Continue with next * gee. 
SEC.LIST [se1 >foal 
DLZDXMTO - INDEX MAINTENANCE eR a “HIPOMAT 1-1 Diagram - 2.5.1.3-02 
Notes Routine| Label Ref Notes Routine| Label Ref 
{ov} Replacing of XPS is done in [05] These DL/I control blocks are 
different ways, depending on used in all processing steps. 
suppression of old and new XPS The XMAINT workarea is 
referenced and/or modified in 
A. When both old and new XPS are all steps as well 
suppressed no action takes 
place 
B. Continue with insert LINSERT {LINSERT3 
subroutine, label - LINSERT3 
C. DLZDBHOO is called to read DLZDBHO 0] LDELETE2 
the old XPS. On errors - NE ~ [DLZRDBLO;|LREPLR1 
is returned. The data base _ ERSLEse 
log module is called, to log 
the old XPS and after the 
change of the DDATA fields, 
the new XDS. DLZDBHOO is 
called again, to write the 
XPS back - PSTBFALT 
D. The LDELETE subroutine is LDELETE | LDELETE2 
called to delete the old XPS. |LINSERT | LINSERT3 
Entry is at -LDELETE2-. Then 
the - LINSERT ~routine is 
called to insert the new XPS, 
entry at - LINSERT3 
DLZDXMTO - INDEX MAINTENANCE eee HIPOMAT 1.1 Diagram - 2.5.1. 3-02 
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Input 


eS a Oe A A A A A ES 


Processing 


A OP A we A a 


FROM DLZDXMTO 
a 


eae ce ae ee 


(77 (RAR 


a a aa A wa “Teas. | 


|| p= [03] Loop 


ze aa" 5.1 


jae \_ | LUNLOAD: 


find Iss 


NOTE 007 


PO Dts 
Sane 


Se A A YO A a 


et ee ae ny aoe wee emg 


DLZDXMTO - INDEX MAINTENANCE 


Oe ae Ramee eS at RO I Ee I ET A 


Notes 


en a en a a of a A a DN 


{02} DLZDDLEO passes the LSDB address 


of the root segment with an UNLD 


call. The DDIR address is used 
and all PSDBs in that DMB are 
inspected if an index exists. 


Find length of XPS and its key 
length. Decide if primary or 
secondary index has to be built. 


Move FF*s in the length of the 
XPS sequence field to the XPS. 


Build temporary blocks: SDB - 
segment name = sequence field 
name of XPS. Update XMAINT JCB 
and DSG. 


Write XPS to index data base, if 
DLBL cards are provided. Call 
DLZDLOCO to open index data 
base, if not yet open. 


{o7] These DL/I control blocks are 
referenced in all process steps. 


DLZDXMTO - = ~ INDEX MAINTENANCE 


a ee Ha A A ae A 


[23] 


fhewnd\ 
< jee| > 
Necna7 


LFINDLEN 


Find iseg hehe 
° 


keylengt. 
[93] 


Jhawnd\ 
<_ jee] > 
N\rrs 


LGETKEY 


through all PSDBs to ----------! 


CHART: LUNLOAD 
PAGE 1 OF 1 
Output 


ee a A A he SN A 


ae tdN, 
lie 


XMAINT 
(ear, | 


remimtemnemantaomeatant 


NOTE 007 


oe a a a a ne 


a ey eo 


Move FF-key to to XPS 


A A a a a 


[4] 


fhmnd\ 
< feel > 
cory 


LBUILDBL 


a a ep a Nt oe a me 


ae a ete mee 


Build | temporar: 
blocks ee 


{os Write the XPS to the data 
base or to the workfile 


id 


[06 Last PSDB 


te ae a eS 





a ee ae pa ce ae eee 


Routine| Label Ref Notes 





SS ed 





eee: 


LFINDLEN} LFINDL1 


LGETKEY 


LBUILDBL 


LLOAD 

LWORKTAP 
GOTOBUFP 
DLZDLOCO 





Licensed 


me ce eae a oe a em <a a at 


7 \ Sepa en are eee 

< jee} >{tLo0aD 

N\peay/ |—-=--------------- 
Put XPS 


ee a a a ae ee 


err 


a / 


TO DLeDuyro 
CHART so. 


“HIPOMAT 1.1 





AO na ce A eH a 


Diagram - 2.5.1.4-01 


ae my 


Routine! Label 


Ref 


Ce ee ees 


XMAINT workarea i is 8 referenced 
and modified in all steps as 
well. 


a: A ee a og HO EN 


HIPOMAT 1.1 Diagram - 2.5.1.4-01 
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CHART: bEzpHEs? 


3 PAGE 1 OF 
Input Processing Output 
FROM CALLER aa (a (a a 
AI 
et Js\ DLZDHDSO: 
e 
eo chs oct ee / 
DSG . = ects: : ; PST 
DSGDMBNO a ate 4 > 01] Initialize work fields in {Ss PSTDMBNM 
———— _ VWIVIVITITIIA7 
patna a Lay ? the PSP RESELL AEE {7 leah alice ter 
a PSTACBNM 
PST - USPCE 
omen yp pr > [02] What function is -----~-- 
[PsTWRK1 be UMAX 
Se requested? (Re eee nt an ae 
PST A. Get Space (chart 
PSTFNCTN 2.6.1.1) 


DLZDHDSO - SPACE MANAGER 


Get Space close to root 
Anchor Point (chart 
2.6.1.1) 


Free Space (chart 
2.6.1.2) 


Modify the Bit Map 
(chart 2.6.1.3) 


Backout Get Space 
(chart 2.6.1.4) 


Backout Free Space 
{chart 2.6.1.2) 


Backout Modify Bit Map 
(chart 2.6.1.3) 


[03] Exit 





HIPOMAT 1.1 Diagram - 2.6.1-01 





[o3] PSTWRK1 contains the length of 
the space to be obtained or 
freed. 


[22] 
A. Get space in a data base CI 
for the specified segment as 


DLZGGSPC 


close as possible toa 
specified base RBA. The 
caller passes the address of 
the involved segment's PSDB 
in reg. 5 and the base RBA in 
PSTBYTNM. 

Get space in a data base cI DLZGGSPC 
for the specified segment as 
close as possible to a root 
anchor point. The caller 
passes the address of the 
involved segment's PSDB in 
reg. 5 and the CI nr /RAP nr 
{in the format BBBR) of the 
involved root anchor point in 
PSTBYTNM. 

Free space that has been DLZFRSPC 
allocated for the specified 

segment in a data base CI. 


i a ee ue a rN 


DLZDHDSO - SPACE MANAGER 


192 


Routine! Label 
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Ref Routine 


The caller passes the address 
E. 
F. 
Ge 


HIPOMAT 1.1 Diagram - 2.6.1-01 


of the involved segment‘s 
PSDB in reg.5. 

Turn on or off the bit in the ]|DLZDHDSO|FIxBIMP 
Bit Map representing the 
specified CI of a data base. 
The caller specifies the CI 
nr in PSTBLKNM. 

Backs out a previously DLZDHDSO 
processed ‘Get Space"* call. 
Backs out a previously DLZFRSPC 
processed ‘Free Space’ call. 
Backs out a previously DLZDHDSO j FIXBTMP 
processed ‘Modify Bit Map‘ 

call. 


IBM 


CHART: DLZGGSPC 
. PAGE 1 0F 2 
Input Processing Output 


FROM DLZDHDSO 
STEP 2 A,B 





A ee a a a a a a ee ee A A a 


°| 
: ery oy DLZGGSPC : 
esee 

4 / DL/I BUFFER 
re D [oa] Get the CI into the buffer 
PSTBYTNM | +-— ee : 
Se pool, which is pointed to ~s779tTTerr \7 


by the base RBA 





Ptah Spee eee ee eee 
< Jee} >{DLZDBHOO 
\p--y/ | —----------—----- 
1.3.1 
DATA BASE CI 
cae Sere eres eae se-> [02] Check if there is enough 
See, — 7 space in this cI 
FSE pepo 4 pp ea pe aoe a 
aa aN If enough space is ieee inal 
ae ny / fe 2 P VIVIVIVITTI7T PSTBYTNM 
CI NR 1 | avail., store RBA of 9 “"—""55-5° (VIS [heen } 
BIT MAP ]—=— space.If nec., update =], 
Fao > the Bit Map.Go to st pean le 
e Bi ap.Go to ste eee 
x e [prt MAP } 
4 in 
If enough space is not 
avail., continue with 
the next foll. substep 
of step 3 
{o3] Locate another data base 
CI and get it into the 
buffer pool using the 
following strategy: 
BUFFER 
PREFIXES fa ee A. A CI on the same track 
[ ]-;--> [a] that is in the buffer 
pool. Go to step 2 
a] . B. A CI on the same cyl 
_ that is in the buffer 
pool. Go to step 2 
DLZDHDSO - GET SPACE ey Fey =. “HIPOMAT 1.1 Diagram - 2.6.1-1-01 
Notes Routine} Label Ref Notes Routine] Label Ref 
~~"For the functions ‘Get space’, | | | || maximum size segment any |. ~*+4Y'~SStC=CS~™SttS 
"Get Space close to RAP* ,the more, when an available space 
following Csects are used: is used.The Bit Map update is - 
performed by routine 
Main routine: DLZDHDSO DLZMMUDT. 


DLZDHDSO calls DLZGGSPC — , 
[03] The calculation of the CI nr's 


for a given range is done by 
routine DLZLLCLC. 


DLZGGSPC calls DLZRCHBK 
DLZLLCLC DLZRRHPL DLZRRHMP 


DLZMMLCT DLZMMUDT - 
A. The searching thru the buffer 


prefixes is done by routine 
DLZRRHPL. 


DLZRRHPL calls DLZRCHBK 


DLZRRHMP calls DLZMMLCT 


[22] To check,if enough space is 
available in a CI,the FSE's in 
this CI are checked.If there are 
more than one FSE in a CI,the 
free space with the largest of 
the three following values that 
will not cause a Bit Map change 
is taken: the size itself,the 
size+tminimum segm length, the 
size*2. 


A Bit Map change is 
necessary, if the data base 
CI cannot accomodate the 


a a cr a ne a a a oe a a a A a A le nae es ee ne a a a a nm a ee a a a a a ee ec 


DLZDHDSO - GET SPACE HIPOMAT 1.1 Diagram - 2.6.1-1-01 
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Input 


a a wh a a ee A ee 


[ae mae] >a] ED 
(> 


I> 


a 


a A en Sy a Ne 


DLZDHDSO - GET SPACE 


a Ae ee atte ra nl ee tee ona ae we 


Notes 





a i ce ca ne er ae ae ee a ee ne es a a ee mee meee ween ff me 


Cc. The searching thru the Bit 
Map(s) is done by routine 
DLZRRHEMP. 


H. A return code of x°0C* will 
be returned to the caller. 


ae a se rc te a oe ae eae 


DLZDHDSO — GET SPACE 
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Processing 


ae el cee a A et Ve ee a Ne ee me te oe 


a a a a a ee i a ec 


ate nate ene a ne oe nn a as 


Routine] Label 


CHART: DLZGGSPC 
PAGE 2 0F 2 
Output 


A CI on the same track 
that has a 1-Bit in the 
Bit Map. Go to step 2 


A CI in the same 
cylinder that has a 
1-Bit in the Bit Map. 
Go to step 2 


A CI being within the 
DELTA CYLINDERS that is 
in the buffer pool. Go 
to step 2 


A CI being within the 
DELTA CYLINDERS that 
has a 1~bit in the Bit 
Map. Go to step 2 


The next available CI 
at the end of the data 
base. Go to step 2 
PST 


[Ps STRICDE 


es 


If no space is found, 
store error code 


[ou] exit 


TO, DLZBHDSO 


a a ee ee 


HIPOMAT 1.1 Diagram ~ 2.6.1.1-02 


a a a a a a a a nr a nn a cs a a ee a re re et cee a et a 


Ref Notes Routine] Label Ref 


a a ee ee eee | ee | eee | eee 


HIPOMAT 1.1 Diagram - 2.6.1.1-02 
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Input Processing Output 
FROM DLZDHDSO 
CHART 2.6.1 
STEP 2 C,F 
a 
[iL DLZFRSPC: 
eece] > 
ny J 
PST 
eee — a an a a ae a ame [02] Sean thru the chain of 
PSTBUFFA onan : Bios 
Caines etn FSE'S in the specified 
PSTOFFST 5 
oo data base CI to find the 
PSTBLKNM oom 2 ; 
ris se FSE which applies 
DL/I BUFFER 5 5 
Spanwnnacaea - Check, if there is more 
DATA BASE {a]----> 
cL free space on the right 
nt ar a i a a nen eee ane and/or on the left side of 
DL/1I BUFFER the segment to be freed 
DATA BASE ---->[a] 
CL . DL/I BUFFER 
ed Build a new FSE and/or {* aah nem enabceneen 
{a ----> : VITVTMTITITITINIT_ > DATA BASE 
change existing FSE(s) i Se es 17 cr 
Log the change of the data ‘S 7 Ge 
base CI Sr ee 17 j j 
Pbmed\ penn ee ne N / 
<_ jee! >/DLZRDBLO ener eee 
tad LOG TAPE 


A a a Ag Nn mn 


DLZDHDSO - FREE SPACE 


a 





a ae at a a oe ah ae em 


Notes 


a a ae ea a i a a a eens bes 


For the functions ‘Free Space‘ 
and ‘Backout Free Space’ the 





following csects are used: 
Main routine: DLZDHDSO 
DLZDHDSO calls DLZFRSPO 


DLZFRSPO calls DLZMMLCT and 
DLZMMUDT 


{01} The scan will be finished when 
an FSE with a higher offset than 
the one in PSTOFFST is reached 
or when the end of the FSE chain 
is reached. 


[02] The purpose of this check is to 
find out whether there will be a 
contiguous piece of free space 
after processing the current 
free space call. 


a i i eg nn i 


DLZDHDSO - FREE SPACE 


FL--IN 
< jee] > 
cy 


Routine} Label 


CHART: DLZFRSPC 
PAGE 10F 2 


1.4.1 


ce a ee a a nr at a 


[05] Issue BFALT call to the 


buffer handler 


ne ne ae ne ee a 


DLZDBHOO 


1.3.1 


a ncn ae ae a mee re ae eee nie ee se 


a a a a a a a ee a a nt nn ae 





a he ce ne 


HIPOMAT 1.1 Diagram - 2.6s1+2-01 


a ce ee a Se OS an te 


se en a a a ce er ae a ce a ee a An a a a a 





a a 


Routine] Label Ref 


es eed 


ns ote a 
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CHART: DLZFRSPC 
AGE 2 0F 2 


P. 
Input Processing Output 
CI NR i a , . CI NR 1 
Rate ae ep en eR OTT [06] If a Bit Map update is |. ita ee 
[ptr MAP | -—-—--—-—-——, /| L-2 _ W777I77TTITTN > {Bir MAP 
a ee ae ee necessary update the Bit "777 sTTse3-- |7 ee 


Map 


[a7] exe 


Vv 
TO DLZDHDSO 
CHART 2.6.1 
STEP 3 


tte nn a he mt a el en Ma te stn a hh se a tn lh a a sa ee ae se a ht eS 


DLZDHDSO ~ FREE SPACE HIPOMAT 1.1 Diagram - 2.6.1.2-02 


atin eh ce a Ae hy ee tN Ah ne A ie MA it hs en ue Mh ten AD Ae te ut em se Hn ne a a a a A eh et te HR em 


Notes Routine! Label Ref Notes Routine| Label Ref 


A Bit Map change is necessary, 
if the data base CI can 
accomodate the maximum size 
segment after processing the 
Free Space call. In this case 
the appropriate bit in the bit 
map has to be turned on. The bit 
map update is performed by 
routine DLZMMUDT. 


ne nana mi Se i i St ten eS in le a eS SN Ne a a a st ee ca cy ta ln ee a cc ne ace tr Me hs Me Sn cy Sn A ns 
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CHART: FIXBTMP 
GE 10F 1 





PA 
Input Processing Output 
FROM DLZDHDSO 
CHART 2.6. 
STEP 2 D,G 
s 
(ia. FIXBTMP: 
eeeos| > 
——<4 vA 
ACB _ PST 
EXTENSION senann-=---> 02] Get the CI number of the I, (ssterR 
a nese a pat VIIIVITITVITIT 
[DMBLRECL | Bit Map that applies = -«s ““=“454¢44¢4¢ ie. =e 
1) 2 ; ; DL/I BUFFER 
PST [02] Locate this CI in the | 4 ae ae or 
po ake = 77 >[a] [a]zz > {prt MAP 
PSTBLKNM buffer pool sal 17 ae tel A oo 
UBTMPOFS six 
--+-------—----- < ee, >{pLzpBHOO 
m7y Saeearessesss=—==+ 
1.3.1 
DL/I BUFFER es 
cee, any a 1 \} ] 03] Apply the change to the Ni pr 
{Bir MAP |-=-----— 7 [23] inde : z7t >[al 
—— Bit Map ard CA 
PST | . ates 
ao naan ney emaman eae mesa ater me ——-4\]}04} Log the change of the Bit 771 > / N 
[PSTWRK1-4 ]-——--- [04] me 2  eeeaeeeees dale 
ee ie nea Pp SRE eS 
\ / 
Pband\ Sewer nena: ne 
< Jee] >{DLZRDBLO Sea! 
Newey | —+--- =~ LOG TAPE 
1.4.1 
BUFFER _ oad BUFFER 
PREFIX : ca .) [03] Mark the buffer containing * PREFIX 
a a ae a nn ae) ae ae VIVIIIIITT IT aan 
[ |= a] the Bit Map as altered Rae Zh ] 
Mbaad\) pea aes 
< jee} >/DLZDBHOO 
Ts 
1.3.1 
[coceeeee 
mas De 
V7 
Vv 
TO DLZDHDSO 
CHART 2.6.1 
STEP 3 
DLZDHDSO - UPDATE BIT MAP te ae et aD “HIPOMAT 1.1 Diagram - 2.6.1. 3-01 
Notes Routine! Label Ref Notes Routine| Label Ref 
~~"For the functions ‘Fix Bit Map’) Jo PP PE 
and * Backout Fix Bit Map‘ the 
following csects are used: 
Main routine : DLZDHDSO 
DLZDHDSO calls DLZMMLCT and 
DLZMMUDT 
{o2] This step is performed by 
routine DLZMMICT. 
[o2] A ‘Byte Locate’ call is issued. {DLZDBHOO CHART 
{03} The update of the Bit Map is 
performed by routine DLZMMUDT. 
[os] A ‘Buffer Alter* call is issued. |DLZDBHOO CHART 
DLZDHDSO - UPDATE BIT MAP SSS “ HIEPOMAT 1.1 Diagram - 2.6.1.3-01 
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PAGE 1 0F 2 


Input Processing Output 
FROM DLZDHDSO 7 7 ae ee ae Ae 
CHART 2.6. 
STEP 2 
Shick 
pied Ded 
——y 
Pee ye A Pe pie Se ets AOFF 
PSTRUFFA co ain cavemen en etme Sp [02] Scan thru the FSE's of the {Ss ae 
= VWIIVIGIINTI77 
ea | | given CI and find the FSE ~“-"~"~ eiaamiaaand 1A me 
ee eam that applies 
DL/I BUFFER —— 3 PST 
eed [o2] If the previously freed IS SeeCoE.” 
iciee VIVIVITVIT7777 
ean space cannot be STARTS TTS | 7, PSTRICDE | 
found,store error code and 
go to step 9 
PST 
ecercomrnccie leans Ral iat ane > {03} If the previously freed 
Fea space is not in the middle 
aki isl of a freed area,go to step 
5 
DL/I BUFFER . nN 3a) Gventd ara PsE ‘ " DL/I BUFFER 
bee oes 1)’ Alal—4 zzt'> (ah (alzzt >} 


—-——41\}]05{ Change the FSE(s) to \ 
faj-——v [22h reflect the acquisition o> El 














the space 
" : PST 
[06] Prepare the information {* a ann owe —— 
~ . VWIVTIINTITII7T7T' > PSTWRK1-4 
for logging the data base =<*""3<"<"""~ | i ee 
change 
DLZDEDSO - BACKOUT GET SPACE Sig eat te eh ee ee “HIPOMAT 1.1 Diagram - 2.6.1-4-01 
Notes Routine} Label Ref Notes Routine} Label Ref 
{00} This function backs out a Free 
Space call processed previously. 
The following csects are used: 
Main routine : DLZDHDSO. 
DLZDHDSO calls DLZRCHBK. 
{o2] PSTOFFST contains the offset to 
the part of the data base CI 
which was freed during the Free 
Space call to be backed out. 
[03] A returncode of x'0C* is stored 
in PSTRTCDE. 
DLZDADSO - BACKOUT GET SPACE. ~~—SCS;7«T«7;73 >ECtCStSt:SSTTStSCtC~StStSSSSSSSSSSSSS”” SEROMA 221 Ddagram ~ 2.6,1.4-01 
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Input Processing Output 
BUFFER BUFFER 
PREFIX co, —5 [07] Mark the buffer as altered . PREFIX 
a ny = ad p---————. - VIMVVIVITVIVII7 ae ren 
Pe ee 2p Co 
ise aeetal Shin --{/ Stee, 
[esl N. pace news ei es eee es 
< jee] >] DLZDBHOO 
Npnny/) | —---------------- 
1.3.1 
eek Na ay} [08] re Bit Map update is \ ac 
a cee a oa ce oy ca cn eee nei caw a Bi a a 1 ee a 
BIT MAP |-——---——--—/ rae _ grrerer777\’> (BIT MAP 
————— necessary, update the Bit ~-~-~-~~ pcecuamael | SAEaeaaEeneamnE 
Map 
[09] Exit 
[osseeees 
crores lad 
V7 
Vv 
TO DLZDHDSO 
CHART 2.6. 
STEP 3 
DLZDHDSO - BACKOUT GET SPACE aS “HIPOMAT 1.1 Diagram - 2.6.1.4-02 
Notes Routine} Label Ref Notes Routine|{ Label Ref 
[o7} A "Buffer Alter’ call is issued |DLZDBHOO 
~ to the buffer handler. 
[oa} A Bit Map update is necessary,if 
the data base CI cannot 
accomodate the maximum length 
segment any more after backing 
out the previously processed 
Free Space call.The Bit Map 
update is performed by routine 
DLZMMUDT. 
| 
DLZDHDSO - BACKOUT GET SPACE SS eee HIPOMAT 1.1 Diagram - 2-6.1-8-( 
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Input 


re i le Me se a a i i 


~~] FROM CALLER 


Processing 


e 
ae DLZDLOCO: 


eene| > 
ay / 


fay---->| [24] 


PSTFNCTN 


(a a—|2 


ee | 


[a]----> [o4] 


DLZDLOCO - OPEN/CLOSE MODULE 





ee a er ce a a ae te age cen atten ne erase ee ete 


Notes 


In all steps the subroutine DOCDCB 
DOCDCB chart 2.7.1.1 is called. 





PCENTRY 
PSROUT 
DOCDCB 


[o1] This function is used by 
DLZDLAOO : 


When the first data base call to 
a not open data base is issued 
(batch only). For PROCOPT=L only 
one data base is opened. For 
other processing options all 
related data bases are opened as 
well (index data bases, 
logically related data bases). 
This call is also used by the 
utilities DLZRDBCO and DLZURGPO. 


ACBENTRY 
DOcDCcB 


DLZDLROO uses this function for 
positioning an HSAM data base at 


{02] 
the start point. It is also used 
by DLZURDBO. It opens only one 


ACB, i.«e. for HISAM only KSDS or 
ESDS. ‘ 


DLZDLD00 uses this function when 
it finds a logically related 
data base, that is not opened 


B 


{this can happen because of 


|e a a i A a ee 


\LZDLOCO - OPEN/CLOSE MODULE 


00 


Routine} Label 
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CHART: DLZDLOCO 
PAGE 1O0F 1 
Output 
PSTFNCTN = PSTOCPCB 
Serena 4 
y 
Loop through all SDB‘s and - 
secondary lists to find y 
all ACB*s to be opened ie 
7 
PY) re ee ee ee eee 
4 ACB 
PSTFNCTN = PSTOCDCB VA EXTENSION 
VIVITIVITI S|) pre 
sonSscsase Z (DMBOFLGs 
y ee, 
Open this one ACB 7 
/ > JCB 
77U > ee 
All JCBORGN ] 
; = 
PSTFNCTN = PSTOCDSG A DDIR 
VIVVIVTIT?, ei eS 
cccececece 7 [DDIRCODE } 
. —_ ee 
Process all ACB‘'s in DSG a PN EO 

7 

7 

7 

; 

PSTFNCTN = PSTOCDMB or A 
PSTOCALD (4000 Ree mm 


Process all ACB‘*s in one 
DMB or all ACB‘s in all 
DMB‘S 


eseeoaeene 
=e] 
NZ 
v 
RETURN TO 
CALLER 


Ref Notes Routine} Label Ref 


delete sensitivity propagation). 


[04] PSTOCALL + PSTOCOPN : DLZOLIO0 DENTRY 
uses this call to open all data DROUTINE 
bases in the system eligible for |DOCDCB 


initial opening (online only). 


PSTOCALL + PSTOOCLS : 
close all ACB‘'s in the DL/I 
system (e.g. DLZDLAOO). 


is used to 


PSTOCDMB : is used by DLZOLIO0 
for deferred opening (online), 
by DLZDXMTO and by data base 
utilities. It opens/closes one 
ACB but two ACB‘s for HISAM. 


HIPOMAT 1.1 Diagram - 2.7.1-01 


Processing 
pale DEEBLOCO 


: aL 3x 


wad ee 





R11 


ACB 
extension 


-2------------->| [01] 
i 


Issue DOS open 


PAGE 10F 1 
Output 


DOCDCB ~ OPEN 


ACB 
EXTENSION 


[DMBOFLGS 


Issue ‘SHOWCB* and compare 


DMB entries to VSAM define 


entries 


Issue *MODCB' to update 


the exit list 


For an empty ESDS file: 


write control record 


Log the open record 


For HISAM KSDS go back to 


step 1 and open ESDS 


Call compression routine 


if necessary 


DLZDLOCO - DOCDCB OPEN 


{01} This part is called from all DOCDCB 
steps of chart 2.7.1 for 

If the data base is 

open, return immediately, also 


DOCOPEN 


opening. 


when not planned for initial 
opening and call is PSTOCALL. 
Unsuccessfull opens have return 
error code in PST and flag in 


JCB. ‘DLZ020° is issued. 


Control interval size, relative DOCSHOW 
key position and key length of 

DMB is compared to VSAM catalog 

entries. MISMATCH : DLZ025, 


DLZ027, and DLZ028. 


[22] 


For HISAM the number of logical 
records in VSAM catalog has to 
be zero for PROCOPT=L and 
greater than zero for PROCOPT=L. 
For HD the high used RBA is 
inspected. Message °DLZ023° is 
issued for conflicts. 


The exit list is updated with DOCMOD 
the address of the error 


handling routines of DLZDBHOO. 


DLZDLOCO - DOCDCB ; OPEN 


Licensed Material 





TO DLZBLOCO 
CHART 2.7.1 


HIPOMAT 1.1 Diagram - 


2.7.1-1-01 


DOCFIRST | DOCOPEN1 
DLZDBHOO 


[oa] The first control interval is 
_ (For HISAM as many 
records as fill one CI). It 
contains DL/I control 

For HD the ACB is 
closed and opened again to 
"NOT LOAD® to VSAM. 


written. 


information. 


simulate 


{07} All PSDBs are inspected to 
determine if a compaction 
routine with ‘INIT*® specified 


exists. 


DOCVARI 


HIPOMAT 1.1 Diagram - 2.7.1.1-01 
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CHART: DLZDSEHO 
P PAGE 1 OF 2 
Input Processing Output 


Cpe e pL EDOEeD 


fon DLZDSEHO : 
baie 


[02] Perform initialization 
functions 
Sk AK) eee ees So 


<_ fee] > 
m74q 





Initialization and 


opens 
3 2.8.1.1 


sooo | > is a pec i mc 


DEZUReSO {oz If DLZURGSO is caller, 























a 6. Ph 2 
PARM Per Fi 
LIST(R3) —-— aN A. Initialize dummy reload---~—-- 
Fr |—J | , prefix header with 
parameters 
B. Store its address LIN PSTUSER 
TTesssseTs 1 > A(TOAREA) 
eh a den >| [03] 1£ ena of secondary list -4IN p-- 
i [93] ¥ Mate 1S foal 
=| go to Step 7 37 (NN 
Daa” DMBSEC. OY) p--=-------- >} fou] match control d.s. 
; \ DMBSEC [os] ma ch contr s entry 
in ae with LC or LP sec. list 
| . | a entry 
\ yt ae 
. CJ Cary 
CONTROL D.S. 

DLZ2DSEHO22=OO™O™~SCOCS — ee ES ec en nag ~~ HIPOMAT 1.1 Diagram - 2.8.1-01 
Notes Routine] Label Ref Notes Routine| Label Ref 
{01} This primary entry point is used {DLZDSEHO/INIT 

by load/insert when a data base 
is being initially loaded or 
reloaded. There are 7? fullwords 
of addresses immediately 
preceding this entry point used 
by modules that interface with 
DLZDSEHO. A logical parent or 
logical child record is input to 
this module. 
{02} This is the primary entry point TEST 
for the scan utility. 
[03] This routine must be re-entered TLISTEND 
when input segment is an LP 
because it could have more than 
1 Lc type. 
(= reste 
DLZDSEHO TT ——_— dE POMAT 4.1 Diagram - 2.8.1-01 
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CHART: DLZDSEHO 
a PAGE 2 OF 2 
Input Processing Output 
DMB PSTUSER is WORKFIL 
aa ST ecaaeaa” SS {05} If LP segment, re RECORD 
CR CB Fa ae iP (ree 007] 
DBPCBKFD seonnee A. Build Type 00 record ------~--- | 
Test SEGMENT is Cae Sp) a, Leeann PGE yet dca eet 
ae | cairo aes B. Put to WORKFIL F ereneee f sy / \ 
ie poe eae et ee —-3\ \ y j ] 
C. Go to Step 3 ——y/ 5 -/ 
Saas aa \ / 
\ / os 
—v—w—————4J\{/06{ Process LC segment : tf 
any / [06] om WORKFIL 
PSS. Fes we see eee She 
< jee] >p a a er 
preys janet rn 
Build LC output 2 
é RLS 
FROM [07 Exit with return code nen iY sole ia 
STEP 3 a [RTNCODE } 
eNO EE EE I ESS eo 
fo7]*} > 
DLZDSEHO. a ee et “HEPOMAT 1.1 Diagram - 2.8.1-02 
Notes Routine| Label Ref Notes Routine} Label Ref 
[os} Description of WORKFIL record DLZDSEHO ( LP1 
can be found in DLZURWF1 DSECT. 
[os] CHILD 
[07] If any error occurred, call DL/I RETURN 
error message module to write 
DLZ007 message on console with 
return code. 
DLZDSEHO228=©)OOCOC™~CS™ ee eee eee HIPOMAT 1-1 Diagram — 2.0.1-02 
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CHART: DLZDS EHO 
: PAGE 1 0F 1 
Input Processing Output 
FROM DLZDSEHO {— Bae sees te Se et epee, eat oe 
CHART 2.8. 
si 
oh J\ DLZDSEHO: 
secs] > 
sl yi Sl sn at a i i a ig ame J 
R1 — sete 
meee ff pe > 02] Establish addressability 
facest) | i = 
ee --- for DL/I tables needed 
PSTWRK1 
A(SDB) -- TO eeeiaag Fee 
[ cece = {02] If WORKFIL not open, resrenacerey | Fa ‘ rN 
[h-) |’ / | j j 
——=1/ : -/ 
\ / 
fslonws\ stint ae aaa aes \ / be 
<_je*e| >f{OPENWORK - . ee 
Ngoea 4 | at oon uae 
Open WORKFIL WORKFIL 
PE: eee Ces Oe aaa 
owtee= — —~ —--1\ +--+ =- = 
NN -o-7 b 4\}{03] Open control data set and +-~-~------ f ——4/ 
L 
( ) oy / ~ eee rae 
|S “| read all records 
N 7 athe al 
- ° CONTROL D.S. 
CONTROL 


a ee a a a ap ne ep ee a Se 


DLZDSEHO ~- INITIALIZATION 


Notes Routine} Label Ref 








[oz] The secondary list entries for DLZDSEHO|INIT 
the input segment are the 
primary source of information 


from the DL/I blocks. 


{oz The address of the DTF is found 
in the address list at the 
beginning of DLZDSEHO. If it is 
0, this workfile must be opened. 
03} This open, is done only once. The LPLCA 


*FINDDTF' 
determine the correct DIF. If 
more than 1 record exists on the 
CDS, a GETVIS is done to hold 
the entire file in core at one 
time. 


routine is used to 


DLZDSEHO - INITIALIZATION 


204 


rariieai] 


Ny” 
TO DLZDSEHO 
CHART 2.8.1 


HIPOMAT 1.1 Diagram - 2.8.1.1-01 


Notes Routine| Label Ref 


HIPOMAT 1.1 Diagram - 2.8.1.1-01 
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CHART: OPENWORK 
PAGE 10F 1 








Input Processing Output 
FROM CALLER ~ ia aes 
NOTE i 
s 
[Lo OPENWORK: 
eoce] > ‘ 
fa i as ea ta a —}; See oS ee, 
R13 RO R3 
aon ee ee ne os eee > {02} Establish addressability ee ——------— 
[acRecsave) | {sys#13 ] ACTAPE 
| Saas 
vi? 
ae [o2] set input for FINDDTF 7\'7 ate 
a et up input for ———— 
[A(RETORN) ] nee 7 A(DISK 
ee pey ee | = Sas he Se Te DTF) 
R15 ~~ oe eS = 
ADDR OF [03] Get DIF address 
OPENWORK 
flecti\y geeccssecccccase css 
< jee} >| FINDDTF 
"1 SE SI Oe Re I 
2.8.1.12 
R15 pr fo, Ageing, oe a a 
ace ee ey {o4] Open DTF for WORKFIL oe eee / \ 7 \ 
[aor | ~ wees Lo i D j j 
co | ee 
‘N / 
N / «_- 
ioe S sYs013 
[05] Save DTF address WORKFIL-- 
_ VWIIVIVIVTTIT7 a a a ee tea ee 
iar aie y, 
A DLZDSEHO 
Z7LIN iat 
; arts {acrF) ] 
[os] exit to Ri4eu aa, rth saa 
[coeeceee 
re | 
V7 
Vv 
RETURN TO 
DLZDSEHO - OPENWORK SSS Oe ht ee pe tee HIPOMAT 1.1 Diagram - 2.8.1.11-01 
Notes Routine} Label Ref Notes Routi Label Ref 
[03] This routine is called by OPENWORK | OPENWORK 
DLZDSEHO, DLZDXMTO, and 
DLZURGSO. 
[03] If control is returned to 
address in R14, an error 
occurred. R14+4 is normal 
return. 
[oa] R15 has address of correct DIF 
~~ as returned by FINDDTF. 
[os When the WORKFIL is open, the 
address is saved in the address 
list at the beginning of 
DLZDSEHO CSECT. 
[06] If an error was detected, OPENEXIT 
r: control is returned to the 
address in. R14. Normal return is 
R14¢4, 
DLZDSEHO - OPENWORK ~~ SOSOt=~CS~CSs™s~‘CS TT —S«d#AEPOMAT 1.1 Diagram - 2.8.1.11-01 
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CHART: _ FINDDTF 
F PAGE 1 OF 1 
Input Processing Output 


asta i yam ee nan pst eh i a > cs a ee ce sn na a a a nh a ee nS i en tM ek a a i i et 


FROM 
CALLER(NOTE 1) 


aay / 


BN XN FINDDTF: 


PUB ENTRY 

















enn =~ ------>| [01] Issue DLZDEV ns SY ee 
SYS NUM (°3] Socal ———--=4/ = } 
R3 — R15 
AUIAPE ARRAS NED [02] If a tape, set R15 to pe RUPAPE 
ES l 2 DIF address q [Baz 
R2 DTF 
ng ad, [03] If a disk, \\ ne 
A (DISK AERATED | Det yt ] 
DTF) At Eesner reese 
7 
A. Modify DTF i, 
B. Set R15 
[04] Anything else, go to Step fees ‘>[5] 
6 ny / - 
[05] Exit to R14+4 
ann d\ 
seces| rg 
RerOaN TO 
—- R15 
4X {06} If IGN, set R15 FSS EERO 5S eee CTNTe 
[ayeai>{ Les Srarcerasnerrmsn 6 
[07] Exit to R14 
ceseseee 
sy] 
Vs. 
Vv 
RETURN TO 
CALLER 
DLZDSEHO - FINDDTIF SS Piece tele epee HIPOMAT 2-1 Diagram - 2.8-1-12-01 
Notes Routine} Label Ref Notes Routine} Label Ref 
[02] This subroutine is called by OPENWORK | FINDDTF 
OPENWORK, DLZDSEHO, and 
DLZURGSO. DLZDEV macro finds PUB 
entry for given programmer 
logical unit and the device type 
byte is used to determine 
further processing. 
[03] 2400, 3410, ana 3420 are FINDTFO 
supported. 
[03] 2314, 3330, 3333, 3340A & B are FINDTF1i 
supported. FINDTF2 
[os] Normal return. FINDEXIT 
[o6} This allows DLZDXMTO to build FINDERRX 
secondary index entries during 
load. 
[07] This is the error exit. FINDERRU 
hw Aime i SP GY EL EO OI Gee SAD ce eS a Ae SS SY ARE i SL AAD es ee eS ASN mE it os ese ste miinemy comm cm cm Me wnt comm, ees ew aE A ae oh ake et oe AEN NS ae a eR a A a AMS ME we cre mln ac REE eda mene SN me SMR ete AOR nl oem Sha ne at an ARKO nme ne sey Moar ts AD lad PRR Ec A a mes Heme ES 
DLZDSEHO - FINDDTF HIPOMAT 1.1 Diagram - 2.8.1.12-01 
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CHART: DLZ ies Was 0 
























PAGE 1 OF 
Input Processing Output 
RS ae iar aaa, FROM DLZDSEHO BP fg SEY Oa eS Orgs og ie Ep es es 
CHART 2.8.1 
STEP 6 
s 
ety DLZDSEHO =: 
ecco!) > 
———4 FA 
aS —"PSTUSER : WORKFIL 
a ——— 43N}}]01] Build Type 10 record and RECORD 
[ACoaREA) dee Z [23] : 2 seenlanas 
capo write it to WORKFIL TYPE 10 _) 
DMB 
tA ‘ at a 
DBPCBKFD = =--y be-y {02} If LTF pointers and pa lees 1 RECO! 
———— ————— 7 / ; : as hanes Coane am 
L nik non-unique sequence field, ——y/ fa 20 } 
build and write Type 20 
ah cS pecs, record 
CONTROL D.S. 
re - , WORKFIL 
aN [3] If LTB pointers and eensssnoes RECORD 
(ny / cs EARS ab | \ 
non-unique sequence field, ——-1/ [TxPe 30 30 ed 
build and write Type 30 — 7 
record 
Prrrrrrrs 
sreaee4] 
Nw; 
Vv 
TO DLZDSEHO 
CHART 2.8. 
STEP 7 
DLZDSEHC — puiLD LC WORKFIL a tie dpe meee a “HIPOMAT 1.1 Diagram - 2.8.1. 2-01 
Notes Routine} Label Ref Notes Routine Label Ref 
[o2 CHILD 
Le1 
{02} LC120A 
[03] LC130B 
DLZDSEHO - BUILD LC WORKFIL === ~~ ~~SSStCS~C<;<;<T;TTTT NST OMAT 12] Diagram — 2-8-1-2-01 
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CHART: DLZNN 
R PAGE 10F 2 
Input Processing Output 





ee ee eee em ee he we cm ea 
=| 


This module is entered from an 
application program via CALL. 


a a a a ae 
t 
ae 


INPUT = ; : 
porn en NFP OTP Obtain and adjust input : 
[PARTS PCB |————-—-~——-—;/J t-— 

Se aaa data. 

{CTL.-PCB | 

JPAR. PART 


at | | 
comp. Party | 
Bane. 








| | 
[ Read parent and component | 
part. if not found, go to 












































! 
i 
| 
{ 
| | 
| | 
| { 
{ { 
| 
| | 
| 
! ee A MNCERENS | 02 
\ f iar mrmmnnmmonacame FA ' —_ 
\ \ / 
| | eS | | | step 9. 
{ ' | | 
{ \ / 4 
| ° Rises ] LLC 
i =. i | [03] Increment the LLC of the —-———----—-—~\ ec Ean | 
i] PARTS DB \ jt—+ Ltr ce ~>/ INITIAL | 
' i 1 parent part by 1 to obtain | tea 
i | the initial LLC. set | haa | H 
! | actual LLC to initial LLC. { | 
( { if the actual LLC is not | 
! | higher than the LLC of the ; 
\ | component part, no | 
‘ | | processing is reguired and 
{ \ | control is passed to step | 
} \ | 9. | | 
| | | | 
{ | 
} i [04] Insert root segment LLCTL ~ —— =) aaa 
| with key = X to start the | | is a » 
i ' control data base. j [ ae 1 
{ { \ / 
| 5 _ 
| H [05] Insert dependent segsents ~-—-—-—---—4 1 SGutEOL DR 
| ; into the control data base 
i for parent part and for 
| component part. 
{ 
| 
| | | 
eee een cesar Bates Se eed oe Mbt, a 
000 - MAINTENANCE OF LOW - LEVEL CODES HIPOMAT 1.1 Diagrams - 3.1.1-01 
4 eR gs oe Se ee ae Shy ad 5 = LS mt te ee ee ee Pe ee Dee ee See ee ee me | 
Notes H goutine! Label { Ref i Notes Routine| Label | Ref 
i pa a acs eae | ———-——f | a eens a ie ec PRA AEEG y Sy Panes ees (eeecereren 
le | | 
for] The calling application program [ouzwwca | | | 
‘ uses three different entry peels | | { 
i points for Assembler, COBOL or \ jroenees 
| PL/I. A parameter list 1 { 
{ consisting of 6 pointers | | 
' identifies 6 fields, 4 of them | ! 
{ containing input data, 2 of then | | | 
H expecting output data. 
| | | | { 
| | a 
1 {o5] The original LLC of the | PARTBEXP| i 
| component is saved in an | | | 
i UPDMNASTR segment. A PA RTBEXP. | | 
| segment for continuity check | { | | 
| control with a key composed of | | i L 
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} VERTICAL EXPLOSION CONTROL. A | | | 
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\ \ / | [03 Test the LLC of the part. —--------——--4\ 
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Label | Ref 


o 
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This allows to continue in 
module 002 at step 1 on the next 


[ 


higher, i.e., numerically lower 
level. 


: 


o 
Ll 


A part may occur multiple tines 


po: 
he. 


I 
within a product~structure tree. i 
Rowever, it must not occur twice i 
within a hierarchical path. | 
Therefore, if a hierarchical { 
path is left or is modified, all | 
PARTBEXP segments for continuity | 
check related to branches which | 
have become obsolete will be : 

| 
| 
| 


removed. 


Since this hierarchical path is 


[2] 


exhausted, the control segment 
for explosion is deleted. 


j 
| 
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Input 


Processing 


FROM DOS/VS 
JcL 


DLZURULO: 


validate contents 


SYSIPT 





reloaded 


i=} 
nin 
milo 
Qa 
8 
td 
ow 


DATA BASE 


all files 


DLZURULO ~ HISAM REORGANIZATION UNLOAD OT. 


Notes 





iar 


fe D. 
Validate DBD name, KSDS name, 


output file name(s) and number 


of O/P files. = 


fo3] DLZDEV macro obtains data from 


PUB. Device type may be TAPE or 
DASD. 


Issue GENCB for ACB, RPL and 
EXLST. Open KSDS and ESDS unless 
ACCESS=SHISAM (KSDS only). 


[5] 


Processing as follows: 


A. Read KSDS records in key 


Processing will continue if 


sequence - bypass if deleted. 


additional input cards. 


ESDS records containing 
overflow dependent segments 
are read by RBA. 


Format work area like KSDS 
record with new attributes. 
Move aS wany segments as will 
fit into KSDS. work area, 
bypassing deleted segments. 
Calculate ovflw RBA. 
image of KSDS to output. 


Write 





DLZURULO 
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Load DBD and obtain 
physical characteristics 
of data base as it will be 


Read records in key 
sequence, remove deleted 
segments and write newly 
formatted KSDS and ESDS 
type records to output 


Write statistics and pisses 
/ / 
| Toa 





Routine} Label | Ref Notes 


Statistics also written to 
SYSO011 to be used for 
comparative purposes during 
reload. 





T 


L-Te) 
mom 
ry 


DLZURULO 
1 OF 1 


QQ» 
bin 


Output 


\ Sy ean Read control card and 
Initialize short segment 
and statistics tables 


{ 
Determine device type for 
each output file specified 


Generate VSAM control 
blocks and open data sets 


poo es 





SYSLST 





HIPOMAT 1.1 Diagram - 4.1.1-01 





Ref 





| Routine] Label 


HIPOMAT 1.1 Diagram - 4,1.1-01 





Format work area like ESDS 





record with new attributes. 


Move as many dependent 
segments as will fit into 
ESDS work area, bypassing 
Calculate 
RBA for next record, if 


Write image of ESDS 


deleted segments. 


required. 
to output. 





Input Processing 
. Read control card and 
validate contents 
SYSIPT 
Determine device type for 
input file 
ds ‘\ y° so Initialize statistics 
y 4 j re -tae table 
peas SS 
or eel 
aoa syso11 
Meee ee Baer ere nated Seeeee Generate VSAM control 


Print comparative 
statistics 


I 


A ee a co 


DLZURRLO - HISAM REORGANIZATION RELOAD UT. 


DLZURRLO - HISAM REORGANIZATION RELOAD UT. 


| Notes 


Validate input filename. 


2 


Label Notes 

















DLZDEV macro obtains data fron 
PUB. Device may be TAPE or DASD. 


is The first record on the input 
file contains a statistics table 
initialized to zero, Included is 
the segment code and length for 
all segment types in the data 


base. 


Issue GENCB for ACB, RPL and 
EXLST. Open KSDS and ESDS unless 
ACCESS=SHISAM (KSDS only). 


[05] KSDS image records written to 
KSDS as key sequence records. 
ESDS image records written ESDS 
as address sequence records, 


Licensed Material 





blocks and open data set 


Read records from input 
| and write to data base 





Out put 


FS ee ie 


DATA BASE 
>) 
esters] SYSLST 
e 
\y7 
RETURN TO 
DOS/V 





HIPOMAT 1.1 Diagram ~ &.2.1-01 


a re rte cr re ENE 


Label Ref 
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CHART: DizvEgde 


PAGE 1 OF 
Input Processing Output 
FROM DL/I/VS ee ‘ cai Sieg ek GE Ie orgy 
| 
et t\ DLZURGUO: 
eeee| > 
PSB scD — 
—— | I -----~ -----> [01] Obtain DL/I control block 
ao is ceca a eS ee addressability via GSCD 
call and initialize 
DMB 
as NE ey pay ee [02] Determine device type for 
each output file specified 
[03] Open output files and 
initialize statistics 
table 
coooeN [e+] Restart if applicable , 
orto. else go to step 8 
i i 
be a 4N [05] Read restart number 
-_—-. pesca mee n 
ne ecm a 7 
SYSLOG 
rN meq eet [06] 6 ds includi taeees ASTD ie 
: ” a ig PenerreneeanTaY [os] opy recor including ISS TESRIAN fares, / \ 
j | ckpt to output ] J 
‘\ / \ / 
RESTART HDUNLD1 
HDUNLD2 


ca sear a 


DLZURGUO - HD REORGANIZATION UNLOAD UT. 


re er cre SE a a EN SE SS 





Notes 





{o2] DLZDEV macro obtains data from 
PUB. Device type may be TAPE or 
DASD. 








Table contains segment code and 
length for all segment types in 
data base. 


[03] 


If Sys010 not IGN, restart takes 


place. 


Program writes DLZ0318I message 
to SYSLOG requesting restart 
number and reads response. 


RESTART = SYS010, HDUNLD1 = 
SYS011, HDUNLD2 = SYS012 . 


ne ee ee 


DLZURGUO - HD REORGANIZATION UNLOAD UT. 
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ae ae a en cee er eae ey me ne cm a a he ee eS 


ce Oe en ee ae EE eat 


Routine] Label 


NN ee 


ore ae ee 
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one me a oe a a oO a a a NN ce ee a 


HIPOMAT 1.1 Diagram - 4.3.1-01 


ee a a ce ne ce ne ca ae ene rt ee ce a ee Se 


Ref Routine| Label 





oe ae ae ae ee en ae ee eran | ee enne een | mea come epee | eee err ee 


ee ee ee ee ee ee te na ee ce a a eS ee ON ee a a AP 


HIPOMAT 1.1 Diagram ~ 4.3.1~-01 
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ee ae a ea ae a ae oe ee a a ce a Oe a we he I 


Input Processing Output 
























ca ia Sake’) [07] Issue GU for root segment 
| “| pe * for position 
\ / Pbwnd\ aan us 
= o < jee] >/CBLTDLI 
DATA BASE rm". lTinkage to dl7i_ 
fi ON Ree Ma 4\} [08] rssue GN for segments 
( | bay {08} 
\ 4 
[sc 3} 
\ / 7 ne 
é FS < Jee] >[CBLTDLI 
DATA BASE m1" |Tinkage to DL/I 
—--4\ o“55 
[09] Write segment to output. ~-------——-F 7 / \ 
Write ckpt records j j 
N\ / 
[29] Write statistics and close—--—------~ aemas 
See HDUNLD1 
output HDUNLD6 
wad \ 
{23] Print statistics report ----------F-=/ es 
/ / 
/ / 
€ ¢ 
[sseccees SYSLST 
rae | e 
VV 
Vv 
RETURN TO 
DL/I/VS 
DLZURGUO - HD REORGANIZATION UNLOAD UT. Se ye a te eg ee ee ~"HIPOMAT 1.1 Diagram - 4.3.1-02 
Notes Routine} Label Ref Notes Routine| Label Ref 


ae a tae a A ON A EN NY ee nt eee se | wo 


[07] If HISAM issue **C* call, 
otherwise issue **T* call. 





me ree emcee feces fe cece a ee a a ce ee ee ee nn ee a ete ern en enteric | emma ameee | ere nanenemme mince | enna newer mie 


[09] DL/I prefix is attached to 
segment. Ckpt records are 
written at first root segment 
after every 5000 segments. 


DLZURGUO - HD REORGANIZATION UNLOAD UT. = | ~~ ssSCSCS<«7«;]3RFTS*” HIPOMAT 1.1 Diagram - %.3.1-02 
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From DL/I/VS 


OD reas ees 


ek ee 
erence) | Kad 


ame 


eek ) [07] 


DATA BASE 


HDUNLD 

foo EX 

( ) 

Nee 

\ / 
D 


LZURGLO - HD Reorganization Reload Utility 


Routine 


Notes 





DLZDEV macro obtains data from 
PUB. Device may be TAPE or DASD. 


{c3) If the HD Reorganization Reload 
Utility program fails, the 
reload restart capability allows 
you to restart from a checkpoint 


record. Before resubmitting the 


job for reload restart, change 
the parameter card from ULU to 


ULR. 


The number of the last valid 
checkpoint record on the 


[04 | 


unloaded file is found in 
console message DLZ381I. Valid 
checkpoint numbers are decinal 
values between 1 and 9999. 


DLZURGLO ~ HD Reorganization Reload Utility 


224 


Processing 











Label 


ART: DLZURGLO 
GE 1 OF 2 
Output 


[i 


CB 
PA 


addressability via GSCD 


call and initialize. 


Determine device type for 
input. 


If not restarting, go to 
Step 11. 


If restarting, ask 


operator for checkpoint 
restart number. 


Locate checkpoint record. 


call). 


ou\ 
gi hea CBLIDLI 
Linkage to DL/I 


Find end of data (GN 
calls). 


[ oe 
Ciset> CBLTDLI 
“4 \tinkage to DI/I 
oe | 


| 
| 
| 
Position data base (GU 


HIPOMAT 1.1 Diagram ~ 4.4.,1-01 


ae 


Ref Notes Routine| Label Ref 
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T: DLZ0RGLO 
‘ 2 OF 2 
Input Processing Output 





yN Soy eat Read corresponding records 


from input. 
\ / 


ee If a work file is present i) eect ice, 
HDUNLD f ») 7 {ae 


| copy old to new. 
fe ——d 
/ \ 





| i i | WORKFIL 
| \ / 
Vasa re Reset processing options. 
RSTFILE | P 3 OP 
| 11] Read input and build SSA 
| for each segment. 
| [72] Issue ASRT call to load pees ye 
segments. 
— — 
<test> CBLTDLI 
Linkage to DL/I 
[13] Print comparative ry 
SEE a 
| statistics report. | 
eeccecee ‘ amas 
e SYSLST 
| \,7 
Return to 
DL/I/VS 
| { 
Stet he rete Belo cde ans ne aac ae eee rn Se 
DLZURGLO - HD Reorganization Reload Utility HIPOMAT 1.1 Diagram - 4.4.1-02 


Routinej Label | Ref 







E If a work file (for logical 
relationships or secondary 
indices) was being created 

| during the reload, the partially 

| created work file should be 
submitted as input to the 
restarted job assigned as SYS010 
with a filename of RSTFILE. 

| 
| 
| 
| 





Label Ref 
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CHART: DLZURGPO 
1 OF 1 


PAGE 
Input Processing Output 
FROM DL/1/VS 7 ee ia | (Ta ca aye S 
Bar N DLZURGPO: 
eece] > 
Be A eee aN [02] Read control card 
. (ey / is 
SYSIPT 
ae + + - [02] Determine device type and 
rN Fig % open input files 
j j \ / 
a a ee, 
N 7 \ Z 
ae . - dl eo—-— IN {03} Read input record 
scones 4/ 
sYso11 Ur 
ros. ne ss 
I i Ps a) [o4] If not already loaded, 
N / . y load data base control 
or eee blocks 
syso14 
ee ta cael ———4d\ ——----. 
/ N ——l-——-—-+) [os] Process input record ee | pov / ‘N 
( ? ny / we ( >) 
Pesscee| : ;| 
Tae wierety yf ° /f 
\ / \ / 
DATA BASE DATA BASE 


tees a a =e un Ss em 


DLZURGPO — = PREFIX UPDATE UTILITY 


i A Ae A nn Se ag 


Notes 





Ce ee es oe 


(a 


[oz] DLZDEV macro obtains data from 
PUB. Device type may be TAPE or 
DASD. 





DLZBLKLD macro is used to load 
DB blocks dynamically. 


(28) 


[05] TYPE 0 and TYPE 1 records 
(LC/LP) are processed by buffer 
handler calls. TYPE 4 records 
(SI) are processed by DL/I 


INSERT/UPDATE calls. 


DLZURGPO - PREFIX UPDATE UTILITY 


226 


aeetemmataemmenbantantent 


Routine] Label 


ot ees ee 


tie nt a i a a Se a 


At EOF, close all files 


(i 
[3] 


\/ 
RETURN TO 
DL/I/VS 


ae ee Se a SS ee a ee ee ee ee ee a 


HIPOMAT 1.1 Diagram - 4.5.1-01 





Ref 


ee ee tte a a te ae es aes re 


Notes 


ce ee a ce Se a a tn a SN eh ey en A 


Routine] Label Ref 


ee et ee ee ae ee i de ah a ee en ae ee ee nee ee cemeene | teed ae mete | ete mein eect eee | se eee cee 


OPEN1 


OPENINP 


BLDBLKS 


TYPEO 
TYPE1 


Ae oe a a ae ae a ee ee we ee wh a eh i 


HIPOMAT 1.1 Diagram - 4.5.1~01 
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CHART: DEBE SO 
PAGE 1 OF 























Input Processing Output 
~~ | FROM DL/I = 
re DLZURGSO : 
tel ig 
, beeen | 9 ewan e ed dea ese Ae oN 
toss 7 x, 2 ‘, SOTO >) [o3] Perform initialization SERENE 
\7 is y | | 
° . of 
—_ wad \ dortebe eee 
|- N / Phmnd\ peewee ay / 
5 ete : 7 Holtz se 
Bean CONTROL CONTROL D. S.1 aa SCAN 
INITIALIZATION (Se ee 
(RRS onaL) == 4.6.1.1 
oem ene CONTROL D.S. 
4 \ 
{ ) 
N 7 
a 
j \ / enon TEP 6 |@ For each data base get 
——: foals DL/I blocks and buffers 
--5\ nae eee: 
RESTIONAL) a J hand\ ea, -------- 
ee en | Se) < jeep > ASMTDLI eee een 
eres —_— | Ss BLDB function for 
ri ‘ --—— utility PSB ae eee 
Patel) / DL/I_ BLOCKS 
/ V7 AND BUFFERS 
( aes 
geeeeee, 7 74 
ee 
t ae 7 oe [03 Locate each segment name 
| - srlts to scan in CDS and SDB 
N 4 
USER DL/I DATA BASE(S) 
I/O AREA 
[os GETVIS for 1/0 area oo) beticecesk ee 
a i ae 
DLZURGSO - DATA BASE SCAN UTILITY ee pe woe og tt oe. ~"HIPOMAT 1-1 Diagram ~ 4.6.1-01 
Notes Routine! Label Ref Notes Routine] Label Ref 
{oa This utility executes as ‘uULU' {DLZURGSO 
under DL/I control. No blocks or 
buffers have been loaded yet. 
Only the nucleus exists. 
{02} The ‘BLDB* call loads all blocks NXTDB 
for PSB specified and allocates BLDBLKS 
buffers. The Utility PSB for NEWDB 
this data base is used. 
{03} The Control Data Set (CDS) NXTSEG 
entries are modified to save SDB NXTSGFND 
and PSDB addresses. 
[o4] The size is the longest needed LNGSEG 
for this data base. Any previous 
I/O area is freed. 
DLZURGSO - DATA BASE SCAN UTILITY a eee ee HIPOMAT 1-1 Diagram - 4-6.1-01 
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Input 


A Sn yh eS ee 


ee che nn na yO a A ee 


DLZURGSO - ,DATA BASE SCAN UTILITY 








CHART: _DLZURGSO 
PAGE 2 OF 2 





Processing Output 
[05] Scan data base ara aS rN 
l 4X \ 3 | j 
-—y/ - -/ 
N / 
Jhand\ pone --- oe =~ \ / ar 
<leed D1PR PROC P a 
oC Write workfile WORKFIL 
TECOrQ — gf Rene ee en a en a se ee 


4.6.1.2 


[06] If another data base to 
sa co >fo2] 
scan, go to Step 2 ——5/ 


[07] Close files and exit 


see] 


bd 
RETURN TO DL/I 


a a te ee i ee A es ee ee a ne i 


HIPOMAT 1.1 Diagram — ~ 4.6.1-02 


Notes Routine! Label Ref Notes Routine] Label Ref 
[5] Every LC or LP segment to be PROC 

scanned is read and a workfile 

record created for it. 
[07] Files are closed. Return to DL/I NXTDBDN 

to close last scanned data base. TERM 


DLZURGSO - DATA BASE SCAN UTILITY 


HIPOMAT 1.1 Diagram ~ 426.1-02 


228 Licensed Material - Property of IBM 











CHART: DLZURGSO 
1 OF 1 








. PAGE 
Input Processing Output 
FROM DLZURGSO a IE eae CO ares paket Oe ee 
CHAR' ~6. 
“lI 
el_ij\ DLZURGSO: 
eese| > 
eee ae Fe eR eR re RN ot I ee 
ete se ss Stee RO R2 
\ Sse ee ay for] Open Control D.S. ee 
( ) SERRE ANG faa {sxso12 ] [A(CONTROL) 
vA ee re a ease naam 
Peecessd| 
\ / Jleel\. paneccennke ease R3 
Ge a < tee] >[FINDDTF Pee 
Ngeny/ leer mrt fo | 
CONTROL D.S. Check ASSGN and a 
EFLLL DPR ae ee a ce a ee 
2.8.1.12 
Read all control records +~-—-----Jj27,/{ [7 
/ a; \N -- Read input control cards CONTROL D.S. 
Nera | and indicate contents in 
|, Control D.S. area. 
SCAN INPUT 04 mwork data set = =«- -~-=-------- 
CAR [os] ove ~--------- 
(OPTIONAL) 
[ieee eee be oe eS 
Jee] >{OPENWORK 
\g--a/ | ------------------ 
2.8.1.11 
rN pies “\ 4} [05] If restart requested, Siete ai eas aes , oN 
ae ES SE ce ip) | 
N / N / 
gins \ / f--5\) p+ \ / Scie 
i P : < ee] >fRESTART 5 s So 
‘AR Npraa/) | —---------------- ——— 
(OPTIONAL) Restore WORKFIL to WORKFIL 
Ce ooo checkpoint ce ne i a an a a a ee 
Vv 
TO DLZURGSO 
CHART 4.62 
STEP 2 
DLZURGSO - SCAN INITIALIZATION See rE oy ~ "HIPOMAT 1. 71 Diagram - 4.6.1-1-01 
Notes Routine} Label Ref Notes Routine| Label Ref 
[or] The printer, reader, and console {DLZURGSO/ PROCCTL 
are also opened. The ‘FINDDTF‘ 
subroutine is used to check that 
SY¥S012 is properly assigned to 
disk and to fill correct device 
type in DTF. 
[02] GETCDS 
[03] Input on *DBS=* card is used to NXTCR 
modify Control d.s. in core. 
"RSTRT=' and/or ‘*CHKPT=* specify 
checkpoint/restart capabilities. 
*ABEND* card used for testing. 
[ou] This routine resides with SCAN 
DLZDSEHO. Its address is found 
in the DLZDSEHO prefix. 
[05] Restart records are copied from RSTRT32 
the previous WORKFIL to the new 
WORKFIL until the specified 
checkpoint record is found. An 
SSA is set to do qualified GU on 
last segment to reestablish 
position. 
DLZURGSO - SCAN INITIALIZATION a EBOMAP 2.1 Diagram - 4.6.1.1-01 
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CHART: 
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Input Processing Output 
FROM DLZURGSO = ~ Meee yp MR ee 
CHART 4.6.1 
STEP 5 
e 
oer PROC: 
ae ny a ically 3 I/O AREA 
-——— , Pereeeaneas [oa] For each segment in DB ween nnn eS \ ne tn a 
aan / woe / SEGMENT 
ae eg Pbmed\ pene cnn cen eee 
CONTROL D.S. <_ jee] >| ASMTDLI 
aa GN segname to DL/I 
I it. ted 
[02] f no more segments, go “fesai [7] 
Step 7 
PST 
ot ate a ee AREER [03] Get buffer address of meena \ oa nee ne 
ny / ny | PSTDATA 
ee segment ee ee 
P bie B A: (ewes mmm are 
< |ee| >{DLzpBHOO Sees, eran 
pent | anne nnn PREFIX + 
PSTBYLCT SEGMENT 
1.361 in 
a ee buffer) 
aed 110K! Fill in parameter list for--~--~—--—--~ 
a DLZDSEHO aan PARM 
LIST(R3) 
PST 
iciSe PURPORT ELEM | (HERERO EBON 1 {os ] Go write WORKFIL record --~------~- 
PSTDATA es a 
yA ane i st amin Ss Can caw 
peace < jee} >{pLZDSEHO 
SEGM IN paeas Jeeencaccccesceceos 
BUPFER 2.8.1 
[06] If requested, write check-~-~---~--~ 
point record to WORKFIL | 
(7221 \ [07] When end of data base, 
meg exit 
ar anan we ananen: WORKFIL 
@eeeeeeee a ne a ee ee a ee a 
—) 
XZ 
Vv 
TO DLZURGSO 
CHART <6. 
DLZURGSO - SCAN PROCESSING HIPOMAT 1.1 Diagram - 4.6.1. 2-01 
Notes Routine} Label Ref Notes Routine} Label Ref 
[ea] This chart shows steps taken for PROC 
each occurrence in a data base 
of the segment types that are 
scanned. 

[o2} Scan completed for data base ~- PROCOS 
message written to SYSLST. 

[03] Scan must have the prefix TESTRSTA 
information to give to DLZDSEHO. 

[os] In addition, R11 has address of LCLPOFF 
WORKFIL DTF, R1 has PST address, 
PSTWRK1 has *FUNCIHPS* and SDB 
address. 

[os] The ‘TEST' entry point is used TESTRT 
and a register save area 
provided. 

[o6} A checkpoint record is written CHKPT 
after every ‘n‘' work file 
records. ‘N* is specified on the 
CHKPT input card. A message is 
written to the console giving 
the current checkpoint record 
number for later reference. 

DLZURGSO - SCAN PROCESSING =a eo a Ss Pes ee HIPOMAT 1.1 Diagram - 4.6-1-2-01 
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From DLZRRCO0O 
chart 1.1.1 


Processing 


A! 
e rrr DLZURPRO = 


eoce] 





R1 
a “ea 
= Baro eemimrcainemnc fd 
srstet 

ie) 
Biks | pon------ >| [04] 


Segm, field, 
sec. list 
info 


SDB 


FDB 





DLZURPRO - DB PREREORGANIZATION UTILITY 


Notes 











[02] Control card contains identifier 
as DBIL (initial load), DBR 
(reorganize), OPTIONS and 
DBDnames. In case of control 

card errors, message is printed 


and job terminates. 


DMB records contain DMB names of 
db and user options specified in 
ctl cards. 


a A A A A a a A a 


DLZURPRO - DB PREREORGANI ZATION UTILITY 


Routine] Label 


Save content of R1 in 
PSTADDR 


Read control cards and 
validate content 


Enter DMB record(s) in 
CONTROL list 


a cence: | / 


Locate DL/I ctl blocks for 
ab referred to in CONTROL 
list 


Utility PSB already loaded 
- go to step 7 


Load utility PSB 


Scan all segm in db for 
logical relationships (LR) 


Ref Notes 
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a a a a a a ee oe a eS ET tin tn 


CHART: 


DLZURPRO 
PAGE OF 


1 2 


CONTROL list 


DMB 
[Pee eats) 


oe ee a i a ca em 


HIPOMAT 1.1 Diagram - 4.7.1-01 


Routine} Label 


a a nr nn a ee re ee ee ree | ee eee | eee ee | em meee 


Soorleaaheetisedemedamaiaadininainadeaniamtaneisedtaamtaaimtanmenduadanmnteatamtamaedtnataamtaesemenemmetnammamaantanmeete aeiteaamedtiademmmmematenmadaiaedeateremtenmaaaeameeeteemtae 
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Input Processing 


te ey ee et ep ne i a a Se 











[08] Enter segm records in 
CONTROL list 


CONTROL list 











09] Enter sec. list records in—~------- 


CHART: DLZURPRO 
2 0F 2 


PAGE 
Output 


CONTROL list 








/ a 


SYSPCH 


es a a eB a tte 


HIPOMAT 1.1 Diagram - 4.7.1-02 


_— oN ofan %s 
[20] write CONTROL list to ----------S-V/ J \, 
CONTROL data set * on ae \ ;| 
N vA 
— . CONTROL data 
[22] Print (and punch) DBS so -+-- set (SYS012) 
cards, if requested by 1 I ae 
OPTIONS --+;/ pee 
7 / 
7 7 
{ ( 
SYSLST 
coo 
arama s 
7 
Vv 
Return to 
DOS/VS 
DLZURPRO - DB PREREORGANLZATION UTILITY a Snes 
Notes Routine} Label Ref Notes 
[os] Segm records contain segm names 
involved in LR. 
[09] Sec. list records contain DMB 
names which refer to logically 
related data bases. 
[23] DBS indicates db must be scanned 
using SCAN utility (DLZURGSO). 
Ll 
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HIPOMAT 1-1 Diagram - 4-7.1-02 


CHART: DLZUACBO 
’ PAGE 1 OF 2 
Input Processing Output 


ri 
et43\ DLZUACBO : 
1 > 
[02] Initialize PSB name table 


ftamn-I\ Sek Sabet Salata eth 
< jee] >|] DLZUSCHO 


Ne--17 Enirvycsoint is 
int is 
SPENSREH 
4.8.1.1 
ON cy Uo ——IN\ {02} Create PSB name table 
seven Adie Ma xs Mansa 4 Fe 
\ 7 
|- A. Read control cards 
5 until EOF 


BUILD CARDS 


B. Add valid PSB name tos 
table 


PARLIN. (pees 
< jee] >| DLZU0SCHO 





Ne--17 Eta point is 
n int is 
INSREE 
4.8.1.2 
DLZUACBO - APPLICATION CONTROL BLOCK CREATION UTILITY | —~—————~CS ~~ ~~ HIPOMAT 1.1 Diagram - 4%.8.1-01 
Notes Routine] Label Ref Notes Routine| Label Ref 
{02} DLI-nucleus loaded 
[02] Control cards are checked for READCARD 
valid input format. The output 
device is set at this time 
(SYSLNK or SYSPCH). 
If the initialized PSB table is 
not large enough, an extension 
is created by DLZUSCHO. 
DLZUACBO —- APPLICATION CONTROL BLOCK CREATION UTILITY = ~~~ HIPOMAT 1.1 Diagram - 4.8.1-01 
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Sneeee DLZUACBO 
20F 2 











PAGE 
Input Processing Output 
[03] For each PSB name in table we ar’ ms fo TN 
= \ ZN), he? Vs 
err | ee eee 
geet Lite (= 
re 2s ap (onimnemonr’) A. Build and write blocks —~--~--~-- J \ / / 
ei cw sony ERE 3 < ia ae 
\ 4 —_—_—_ 
| . | Rey No poe ---------- +--+ SYSLNK or SYSPCH 
SS jee] > DLZDLBLO (DMB's and 
\ 7 Sly 2 ee ETS NS PSB's) 
tepecarane 4.8.1.3 
CIL (PSB‘'s ia Sas as ic ate een as 
and DBD‘s) 
ao i'\ 
B. Write completion ----------F 5-1 / Pa ee 
message / / 
/ 7 
( ( 
Pe S3\ pws ncceen ee eas 
< [ee] >] DLzumMsco SYSLST 
74 pone aia ers 
4.8.1.4 
[e+] Free PSB table 
JkocINe poses tee eo see 
< Jee} >{DLZUSCHO 
me" entry point 
ctotbstl 
4.8.1.5 
[o5] Close files and exit 
DLZUACBO - APPLICATION CONTROL BLOCK CREATION UTILITY SS ~HIPOMAT 1.1 Diagram - 4.8.1-02 
Notes Routine} Label Ref Notes Routine] Label Ref 
{03} The completion message is normal CALLBB 
unless a non-zero return code is 
found from DLZDLBLO. 
[os] BLDDONE 
[os] CLOSE 
a neon ct i st msn cine segs a pm a a A * Wee a nn i a nl a ces iar 
DLZUACBO - APPLICATION CONTROL BLOCK CREATION UTILITY HIPOMAT 1.1 Diagram - ue 8.1-02 
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CHART: OPENSRCH 
: PAGE 10F 1 
Input Processing Output 


ae ae a a a a A ee a nnn Ae A a a A 


FROM at he ea 
soaets 





E Lay OPENSRCH: 
ecce| 


vaio 











Ri - SAVE/CONTROL 
a ey a nn nS [02] GETVIS for Save/Control TING Actas BLOCK 
fattisT) )-——--=-- = 7 ; eas bacaN 
Sense eet prefix block —1/ 
List 
RY 
LENGTH 
OFFSET TO. 
COMPARE ey | 
FIELD 
LENGTH OF a 
owe [02] Setup parameters and mark ~------- — 
eluates -- block ‘fullé’ jg.  9|. 
— R1 
[23] Return to calier ae 
es A(S/C 
BLOCK) 
Vv 
TO DLZUACBO 
CHART 4.8. 
STEP 2 
DLZUACBO - DLZUSCHO - OPENSRCH pe Re HIPOMAT 1.1 Diagram - 4.8.1.1-01 
Notes Routine} Label Ref Notes Routine| Label Ref 
{02 Length is 128 bytes. OPENSRCH 
[02] Block now contains information 
needed to build entry block. The 
first (or only) entry is 
obtained before the first actual 
insert. 
{03} The address of the created block 
is returned to the caller. 
NOTE : This routine is very 
generalized and could be used 
for other purposes, but is only 
used by DLZUACBO to build the 
PSB name table. 
DLZUACBO - DLZUSCHO - OPENSRCH = =2S~S~*~C“‘“S™S*~*~*””SS”S™S™SC™~C~C™CS™ Sia aa HIPOMAT 1.1 Diagram - %.8.1.1-01 
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Tnput 
BPTI IS BS aos ek Re FROM DLZUACBO 
CHART 4.8. 
STEP 2B 


cove!) > 
——=4/ 


[ia 


a aN 





--—---~--;/ 


> pace 
A(S/C 
BLOCK) 


A(NEW 
ENTRY) 


St pees 


—J\ 


(S]-*1> 


se Ne ee ec Ue 


DLZUACBO - DLZUSCHO - INSRCH 


Routine] Label 


INSRCH 





[02] Enough room for 16 entries is 
acquired. 


(3) 
[2*] 
[25] 
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ey [0] 


CHART: INSRCH 
. PAGE 1 0F 1 
Processing Output 
INSRCH: 
[oa] If new entry already -_—- 4N ne 
n entry already 0 --—--—em meen IN pete 
: Sie ett Ac gop Varta tr ee teetrs Vv 00000008 | 
exists in the table, set (}(j}4f[ 0 | bape nm annem 
R15 = 8 
then go to step 5 —-4\ pe 
3 P coe] >{3] 
—a4/ be 


—a3\ 
If no room for new entry, ——--------J7—-3/ 


GETVIS for entry block 
chaining it to any 


previous blocks ENTRY BLOCK 


[03] Insert new entry in -++------— 


collating sequence 


Set R15 to 0 wee ene aN 


we nen / 


[ea 
[a 


Return to caller with 
return code in R15 





a 

TO DLZUACBO 

CHART 4.8.1 

STEP 3 
as aa aa = “HIPOMAT 1.1 Diagram - 4.8.1-2-01 

Ref Notes Routine| Label Ref 

INSRT1 
NOTFND 
MVOK 
OKGO 
NOGO 


HIPOMAT 1.1 Diagram ~- 4.8.1.2-01 
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FROM DLZUACBO 
CHAR’ 


STEP 3A” 





CHART: DLZDLBLO 
is PAGE 1 OF 2 
Processing Output 
e 
slge DLZDLBLO : 
seen j > 
ny 
3 TEMP DDIR 
toe SEE HK {oa} Load PSB from CIL _--3\ iMate eae 
nny / | —y/ 
~ fe 7 
fo2}ei > {o2] Add all DBD names from —--------- L_—--—-—-——-4 
V7 EXTDBD list to temp DDIR | 
= Fi F DDIR 
[93] Indicate if DMB should be iS, Saarmcan 
written 4000000 FER {7 pshdeeaei ania nes 
[ow Get core for PSDBs and —_——— 
fill from PSB 7 
ceed [05] Process info from each --—--—~----- 1k 
m referenced DBD. Create DMB lay 
prefix, ACB Extension, 
FDBs, SECLIST, and SDBs 
[oe] If logical relationships, ---~------- 1 
build generated SDBs nie ——t\ ashe acl 
, | —=4/ [SeN‘D spBs} 
[07] If INDEX, fill index SDB ------—----y_ 
=| [iNoEx SDB} 
[os] Fill sSDBs from a (S055 
corresponding PSDBs Me) AN ee 
———3\ Steerer 
{09} Build enqueue list by -----~---— lV PSIL ] 


ae a ne a nc a ce a ne a a ne ae ee a 


DLZUACBO - ACB-UTILITY 


Notes 


[o2} The PSB name is found in the 
PDIR at PDIRSYM. 


[22] 





[03] All DMB names are also kept in 
an internal table, so we know 
which DMBs have been built 
during this run for a previous 
PSB and need not be built again. 
DMBS are also not built if they 
are found in the CIL or are 


LOGICAL. 


SDBs are partially created at 
this time also. 


LCHDTAB entries and INDXTAB 
entries are converted to 
secondary list entries. 
Connections are made during 
construction. 


Because either Version 1.0 or 
1.1 DBDs are accepted, special 
logic exists to remove VSAM 
ACB(s) from the DBD if V 1.0. 


DLZUACBO - ACB-UTILITY 


segment code 


Routine} Label 





Ref Notes 

[06] Various checks are made to 
insure all logical connect. 
are correct. 


HIPOMAT 1.1 Diagram - 4.8.1.3-01 


ions 


DLZDLBAO 


UPSBENT 

DUMDIRA [07] Special processing when PROCSEQ 
specified 

DUMDIRD1 

[os] Parentages established and 
checked here. 

[09] Sensitivity is determined by 
user's PROCOPT specification and 
special rules for logical 
relationships and indexes. 

SGTABGS Output will be the PSIL (Program 

LOADDBD Segment Intent List) and is for 
DMBs - not PSBs. 

SIGMAA 

EPSTLONA 

TYP64RES 

BLDSECNX 

EPSILOZZ 
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Routine} Label 


Ref 


‘BLDLOGA 
BLDSDBP 


SUMA 


SUM 
SUMSPB 
PARNTST 


SUMS PMN 
INTPROP 


HIPOMAT 1.1 Diagram - 4.8.1.3-01 
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Processing 


a a ae te mtr sae ae con A a ag i ee a a a a a ew 


Se ein S \ 


20] Build JCB, LEVTAB, DSG 


SSeS Seay / 


[23] If index, build XMT PCB 


sae ees 


——-;/ 
[22] Blocks finished for this --~—--~------ 
PSB | 
mad \ 
J toed Spe oS ee ia can oe 
< Jee} > DLZUAMBO 
4 Gang ere ee eT aT 
Write blocks 
4.8.1.31 
[23] If utility PSB to be built----—------ 
Pheend\  p—~----- =: ee 
< [ee] >JDLZDPSBO —-5\ 
Neo) | aenen- ne ---------- ——=/ 
Build PSB from DED 
then go to step 2 


=3S\ pew 
[esi piel 


See nN 


[24] Exit with return code 


teeny / 


[eseveees 
ae = 
XN 74 
Vv 
TO DLZUACBO 
HAR 


C 4.8. 
STEP 3B 





es a ee 


DLZUACBO - ACB-UTILITY 





nt ne a a a nee a a oe a a tye a Se ce a es ce an a 


Routine} Label Ref Notes 








[20} At this point, checks are made BLDJCB | BLDICB . : 
to insure the PCB structure is HIERCKO1L chau Seta saunas Se, Steiaas 
process another PSB name. 
valid. SUMSPE1 
SUMSPH 
SUMSPO 
[22] This is required when any index BLDEND 
is involved. The PCB contains a BLDNONDX 
DBPCB, JCB, 2 DSGs, 2 SDBs, and 
2 LEVTABs. Sizes of required 
work areas are set. 
[22] Biock Mover (DLZUAMBO) called SIGMA 
with register 1 containing 
address of parameter list. 
[23] Utility PSB is built for every NXTFLAG 
HISAM, HDAM, HIDAM, and SETUPSB 
secondary index DMB that was 
just written by the Block Mover. 
[24] PSTERCOD = 0 if OK and non-zero FREEDBD 


if not. If an error was 
detected, DLZLBLMO is called to 
set up the message parameter 
list for the specified error 
message. 


a ene cmp eer A th Re Seat ees oe 


DLZUACBO - ACB-UTILITY 
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a a a ene 


CHART: DLZDLBLO 
PAGE 2 OF 2 


Output 








PSTERCOD 


eeecoe] 


HIPOMAT 1.1 Diagram ~ 4.8.1.3~02 


ee a a a a a a a a ts hn 


Routine} Label Ref 


oe ee ee a ee | eee ee eee | mee | eee 


~~ DLZUACBO can call DLZDLBLO at 


ee ce ce a a A a ae SS eh a te 


HIPOMAT 1.1 Diagram ~- 4.8.1.3-02 

















CHART: DLZUAMBO 
5 PAGE 1 OF 1 
Input Processing Output 
FROM DLZDLBLO a. 
CHART 4.8.1. 
STEP 12 
i 
elld\ DLZUAMBO: 
esce 1 > 
1/7 
R1 — . : 
Sesion Mare ts oa 5N\ {or} Establish addressability 
| ACLIST) ] RE Ey 
LIstT 
A(*MOVE') {02} Process DMBS 
A(PSB) 
A(DDIR) o oor nme oe 
Noster Res [henS\ pena ney == 7 N / /N 
A(PSIL) < jee} > es | ( ) Sea ena 
a Neraa7 ~~~------—------ —-43\ \ 4 V7 
A(PST) Write DMBs —y/ . -/ ° 
eee ne 4.8.1.32 
Pa ee ee a TT \ / / 
[o3] Process PSB SYSLNK OR SYSPCH 
Plead\. peasssssccesseecces awe soees, 
< fee] > ere ere a ne oe. 
[ ioe | ee nae ee 
Write PSB 
4.8.1.33 
[ou Exit 
perrerry 
a | e 
V7 
Vv 
TO DLZDLBLO 
CHART 4.8.1.3 
STEP 13 
DLZUACBO - DLZUAMBO - Move and output Blocks Pe OG pee eye SE HIPOMAT 1-1 Diagram - 4.8.1.31-01 
Notes Routine] Label Ref Notes Routine} Label Ref 


[oa] A parameter list is passed to 
a this module via Register 1. From 
this all blocks can be found. 


[02] 
[03] 


[os] If an error occurred, PSTERCOD 
is non-zero. 


DLZUAMBO } SAVE 


LOOPDDIR 


PROCPSB 


RETURN 
ERRET 


DLZUACBO - DLZUAMBO - Move and Output Blocks 
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in ne re a er a ee ee ee | eee eee | eee eee | eee ee 


HIPOMAT 1-1 Diagram - 4.8-1.31-01 
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CHART: DLZUAMBO 
10 1 











F PAGE F 
Input. Processing Output 
From puzuamB0 [0 
CHART 4.8.1.31 
STEP 2 
l 
et-s\ DLZUAMBO : 
esse} > 
——=—4/ 
DDIRADRC = : 
enone 22------- += ---> [02] Process all DMBS in DDIR 
ieee unless already built or 
LOGICAL 
oC eects DMB = DMB 
COMPRES- [| = pq------~ = eed \ [o2] Move scattered parts to ae AS ee 
SION PREFIX ———-—————, /| L-— a= / PREFIX 
CSECT(s) Seipieaenieiameied one block eee 
enna ACBEXT - ACBEXT 
PSDBs —— PSDBs 
anyon ana Sareea utente 03] Convert any addresses to Sedaieetamaianmameed 
XMT FDBs -— FDBs 
CSECT(s) Pee ioetenepeteted offsets from DMB start 2 4§ LF ae rarer ———— 
ne SEC LIST SECLIST 
is i i ss why he nnn el ra i ne ws ints tin was se ini COMP 
CSECT (s) 
[04] Change DDIR addresses to -----~----- xXmT 
— A ---+---~-- CSECT (s) 
relative DMB numbers jf [ft J bmmmmeen mam 
creating DMB reference 5x 
list -—=,/ DMB 
REFERENCE 
LIST 
fos} If HSAM, include TPMOD or 
™ gpMoDs for linkedit 
PSTCODE1 : a, eeteacele aecaubenalan sy 
| wena es > [06] Write to SYSLNK or SYSPCH 4 J ‘ / 7 N 
ene == l —-3\ \ / wr, 
[ 1... ---<] Saay7 : -/ : 
Ae. ‘nae 7 
{o7] Exit after last DMB a 
processed SYSLNK OR SYSPCH 
peacceee 
V7 
Vv 
TO DLZUAMBO 
CHART 4.8.1.31 
STEP 3 
DLZUACBO - DLZUAMBO - Process DMBs por gy, oes ea eee HIPOMAT 1.1 Diagram - 4.8.1-32-01 
Notes Routine] Label Ref Notes Routine} Label Ref 
[02] This chart is performed for all LOOPDDIR 
DMBSs. 
[02] Any addresses which do not fall PROPSET 
within DMB are set to zero. NXTCSECT 
NXSECLST 
{ou} The reference list is the last coD1 
part in the DMB. 
[05] The names in the relocatable ISHSAM 
library of the required mod‘s 
are DLZTAPE or DLZDISKI and 
DLZDISKO. 
[06] The same subroutine is used for PUTLNK 
the PSB also. 
[97) LOGICAL 
DLZUACBO - DLZUAMBO - Process DMBs = = += ~~~ ~~~”~<S;~S7«7;73; SMTt:;:;:;:*C*St dE ROMAT 1.1 Diagram - 4.8.1-32-01 
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CHART: DLZ2UAMBO 
PAGE 10F 1 
Input Processing Output 
7 a FROM DLZUAMBO a >: ates 
CHART 4%.8.1.31 
EP 3 
alae DLZUAMBO: 
EP A A A wD mH ene Lz | 
ENQLST “PSB PREFIX amaeenen 1? _ 
ids lane em a Bs Gt tetera 3 o> [02] Acquire core for entire -—------~-—- 
[PsrL ] - Sse 
PSBXIOWK 
PSBSEGWK = PSB 
oan ee [02] Move pieces of PSB to Se eteeaemamaaenel > nt aay 
----+--- — q acquired core 7a Son DREET 
PSBNDXWK me : DBPCB1 
PSBIOAWK [03] Relocate any addresses son 
ee —_ within PSB to offsets from aaa or 
ae eae op aa aa ees en oa S 
ponerse nn PCB begin -= —--- 
PSIL SDBs LEVTAB 
f ] SDBS 
ie tg ais 77 ae Ig SDBXPANS 
ee em / 4 DBPCB2 
DBPCB nent ana anananan — Gutaiusniasanenn 
eee eee etc. 
JCB eee ener 
a eee SDBs SDBXPANS 
DSGS nnn yz fb fp sa a a a 
-o0------~ [generated ]-— XMT PCB 
LEVTAB ————-—--—~-J ——-------- 
sppxpANs [| may fou) Write to SYSLNK or SYSPCH --- aoe | , sy rN 
ae ee eo = — Sa ee een, . 
fe) tee] \7 
Sea ae ™~ \ / |- 
PSB PREFIX XMT PCB a re eee eee 
[ ] SYSLNK OR SYSPCH 


[os Exit 


DLZUACBO - DLZUAMBO - Process PSB 


Notes Routine] Label 





[02] GETVIS is used. The size PROCPSB 
calculation formula is PSBPST - 
PSBXIOWK ~- PSBSEGWK - PSBNDXWK — 
PSBIOAWK + len of PSIL. 
[02] In reality, steps 2 and 3 are MVDBPCB 
performed simultaneously. MVDBPCB1L 
MVDBPCB2 
CHKTRGT 
CKEXPM 
(= a 


[95] FREEVIS issued to free up PSB 
core acquired. 


DLZUACBO - “ DLZUAMBO - Process PSB 
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a nee cane re ar a a a ae 





Vv 
TO DLZUAMBO 
CHART 4.8.1. 
STEP 4& 


31 


HIPOMAT 1.1 Diagram - 4.8.1.33-01 


a a a a a a a re ee a rr re ee ree 


Notes Routine] Label Ref 
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CHART: DLZDPSBO 
PAGE 10F 1 
Input Processing Output 





ee A AES Se SS SN a ee nae a ca a re a a a a a a a ae a 


FROM DLZDLBLO 
CHART 4.8.1.3 
STEP 13 


etsy DLZDPSBO: 


eoee| > 
7 





PARMLST(R1) 





























oy = 4N {o2] Establish addressability 
‘ACDBD) ao 7A 
a [02] Using DBD, calculate 
required key feedback 
length 
DBD . 
- eae jt See 
[03] GETVIS for PSB core Pere | IV 
: , PSB 
[04] Fill PSB Prefix 2 —-~- ++ -- 
Ls 
——/ 
{os} Fill SENSEG entries = = ---~------ 
[06] move DBD name to DB AL eer 
Reference Table a 
= eS “"PARMLST ~~ ~ORIS — 
{07} Exit with return code arioeapeedmaammnen WEN totetabetetstpeabaed 
A(DBD) RETN CODE ] 
A(PSB) soars 
Vv 
TO DLZDLBLO 
CHART 4.8.1.3 
STEP 2 
DLZUACBO - DLZDPSBO - Build Utility PSB PEO a ee L HIPOMAT 1.1 Diagram - 4.8.1.34-01 
Notes Routine| Label Ref Notes Routine| Label Ref 
[02] Parameter list ‘containing DBD DL2DPSBO| INIT 
address is passed in Register 1. 
The contents of this DBD are 
used to create the utility PSB. 
[o2] Result will be stored in PSB SEGLOOP 
Prefix. GETKEYS2Z 
[03] The area is also cleared to USECURR1 
zeros. 
[o4) PROCOPT of ‘A* is set for all CLRDONE 
DBD‘*s: except secondary index 
where ‘LS* is set. 
[os} Same PROCOPT as Note 04. PSEGLOOP 
[06] In addition, no SORTAB is SETDBREF 
indicated. 
The address of the built utility RETURN 
PSB is returned to the caller in 
the parameter list. 
DLZUACBO - DLZDPSBO - Build Utility PSB sd AEPOMAT 1.1 Diagram - 4.8.1. 34-01 
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CHART: DLZUMSGO 
: PAGE 10F 1 
Input Processing Output 
° FROM c aD ESTED, ee A OT A SY A A A SS <A A a 
(NOTE 1) * 
‘| 
eliud\ DLZUMSGO =: 
eene| > 
47 
~""DLZUMGTO. | +PARM 
pentane a LIST(R1) ne [07] Find matching message ID 
MSG1 acta ehe ons a / | Ed 
cheteut-cineetentennenen’ MSG ID in DLZUMGTO CSECT 
ewer een = ISRT MSG {---— 
LL 
MSGn ISRT MSG 
FF os MsG 
weeween-——J{f = = =  f{102] Move message to output = -——~---—~-. Siac) 5) pete ene 
eene Arey Sereeers aoe ee [02] Move message to output Soe > C 
area wa i aia, 
ei | | aa cee 
[03] If inserts to message, | > MSG/. «MSG 
= VITTTITTAT AS 7 | be pein sia 
move them t0o0 000000 Tm 
[03] Print message b aera | 
= 4 4 
/ / 
/ / 
( ( 
SYSLST 
Vv 
RETURN TO 
CALLER 
DLZUACBO - DLZUMSGO. Py pie Lee a ey ce ea “HIPOMAT 1.1 Diagram - 4.8.1.6-01 
Notes Routine} Label Ref Notes Routine] Label Ref 
[oi] This routine can be called by DLZUMSGO} TESTID 
DLZUACBO, DLZLBLMO, DLZUAMBO, or 
DLZDPSBO. 
[03] DLZUMGTO also has information IDEQU 
concerning message (length, 
inserts allowed, length of 
inserts). 
{03} These values are set by the NXTIN 
calling program at execution 
time. 
[o4} Actually a subroutine in 
DLZUACBO CSECT is used. 


HIPOMAT 1-1 Diagram - 4.8.1-4-01 
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CHART: CLOSESCH 
. PAGE 10F i 
Input Processing Output 


FROM DLZUACBO 
CHART 4 1 


cece] > 


7 


e 
[i \ CLOSESCH: 


+ -+------------->| [01] FREEVIS the save control 
| block and all entry blocks 


D> parece si 
Se aeteaieaneeienel —_ [02] Return to caller 
S/C BLOCK 
PryTrrr yy 
3] 
V7 
Vv 
TO DLZUACBO 
CHART 4.8. 
STEP 5 
DLZUACBO - DLZUSCHO-CLOSESCH ere Ee ee “HIPOMAT 1.1 Diagram - 4.8-1.5-01 
Notes Routine] Label Ref Notes Routine} Label Ref 
[or] All entry blocks can be found FRNEXT 
beginning from the save/control 
block. 
[02] No return-code. TEXTGRP 
DLZUACBO - DLZUSCHO-CLOSESCH ~~ ~~ ~—~—~—SOC<C<;7«7;}3XETTSté<S;<;S;7 OP GTPOMAT 1.1 Diagram - 4.8.1.5-01 
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CHART: DLZUCUMO 
A PAGE 1 OF 2 
Input Processing Output 


FROM DOS/VS 


st 
et j\ DLZUCUMO: 


cees| > 


pied 77 = 
aay [o1] Get time and date of this 


execution 
LF "\ SITLL 11 F032] oc D CTO 
I Ao Soo as baemenens => [o2} all DLzUCCT 
| 
|- ThawndN\ pwn 
ook oo oo < [ee] >{dLzuccTo 








f= 1 SN ae ee 
CONTROL cae Read and process 
CARDS control cards 
4.92161 
—— ia ian De ———1\ arms 
[os If no CUMOUT but LOGOUT, —--~---- _f Vv jo t% 
call DLzuC150 at entry j j 
point DLZUEX15 \ / 
Pbend\_ po—--—------------- LOGOUT 
<_ Jee] >] DLzZuC150 
me." |Write LOGOUT _ 
4.9.1.2 
7 ON {o4] 1£ cuMour, loaded sort rN a ‘Ny 
a “\ j program (SORT) will call i j ie | 
rN j. 47 DLZUC150 at its Exit15 and \ / re e 
j | Ae DLZUEX35 at Exit35 ene . : 
. pe CUMOUT ss 
“oe | aE A. Sort LOGINxx 
—— =—-1 -———- 1 / ear. 
LOGINO1-99 reas | y, 2 
Pba-4IN po ------- + * : 
i < jee] >} SORT \ l 
ros / 7. as _ \ / 
] j \ FC 6 Ca i (Oe aaa oe 
. / B. Go to Step 6 on --4N. p-- LOGOUT 
Ne ; [ost >foel (OPTIONAL) 
«ie \ / completion of sort —-4/ NS Too 
CUMIN : 7 
(OPTIONAL) 

DLZUCUMO - CHANGE ACCUMULATION UTILITY eg RAE eae es ~THIPOMAT 1-1 Diagram - 4.9.1-01 
Notes Routine| Label Ref Notes Routine| Label Ref 
[03] Header line is printed on TIMEDEC 

SYSLST. 
[o2] Three returns as follows: READCD 
A. Error - issue error message BADEND 
B. No cum output, call DLZUEX15. GOODEND 
Then issue successful run 
message. 
Cc. Cum output, call SORT. SORT 
[o4] SORT is invoked by LOAD and SORT 
BALR. At exit 35, DLZUC350 is 
called at entry point DLZUEX35. 
See chart 4.9.1.3 . 
DLZUCUMO - CHANGE ACCUMULATION UTILITY = = ~~ ~~~ ——CSC<;«7;7<;7 RT HIPOMAT 1.1 Diagram - 4.9,1-01 
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Input Processing 
EN 
[- eee i > 
————4/ _ F 
FROM [03] Entry if error detected in 
DLZ0C150] t-- 5 
4.9.1.2 DLZUC150. Establish 
addressability 
PROCFLAG - : . mo) 
cm ee ar nn ta [o«] Write completion message --~------—~ [en kA 
[ster ap | U- EAC Ame 
eee o6]e] > 
os Sei) Feels 
Pbmed\ panne ee 
po Soa >| DLZUCERO 
ae write messages 
29.1.4 
[07 Exit 
errrrrrsrs 
= za 
Vy 
Vv 
RETURN TO 
S/V 
DLZUCUMO - CHANGE ACCUMULATION UTILITY Ss eT ee 
Notes Routine] Label Ref Notes 





[05] This entry point is necessary DLZERRTN 
because DL2ZUC150, not knowing 
who called him (DLZUCUMO or 
SORT), must return to this 
module if an error was detected. 
[06] May be OK message or error CLOSE 


message from SORT or DLZUC150 or 
DLZUC350. If PROCTERM X‘'01" bit 
On in PROCFLAG, an error 
occurred. 


DLZUCUMO - CHANGE ACCUMULATION UTILITY 
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CHART: 


DLZUCUMO 
PAGE 2 OF 2 


Output 


MESSAGE 


a re ne ee ee =: 


HIPOMAT 1.1 Diagram - 4.9.1-02 


a en a a rn oe ee ee 


Routine} Label Ref 


A a a ne a a a a A a A A A a a 


HIPOMAT 1.1 Diagram - 4.9.1-02 





CHART: DLZUCCTO 
. PAGE 1 OF 1 
Input Processing Output 
FROM DLZUCUMO = Pamg he Adam edd fees 
CHART 4.9. 
il 
efit \ DLZUCCTO: 
sooe| > 
——"4 
ro ON <= b------—-!5 [02] Read control cards and 
“vat om validity check 
| 
aaeeadeieata = P CUMCONST 
{o2] Save appropriate control ----—-------- ne NG ee 
SYSIPT CD MD AT aaa RSC BE EE DES a7 
card data feel ntnnes Domne 
apts reacaas 
a { eee eteeeseenise ee 3 
[03] Issue GETVIS for DB and -—--~~-~---— 
date/time table, if Goaenaas Seca 
required | | 
aa "\ 7 L---------- > o4| Check for valid DMB in — DB-TABLE DATE/TIME 
( ) _ - TABLE 
\ “| CIL. Prepare DB table and pe 
a date/time table in 
« . alphabetical order 
DMB FROM 
CORE IMAGE 
LIBRARY 


DLZUCUMO - Input card processor DLZUCCTO 


[o2] Possible card types are : 

A. ‘ID’ specifies db number, max 
key length, number of sort 
work and log files. 


*DBO' 
accumulated from input and 
written to CUMOUT. 


describes records to be 


*DB1* describes records be 


written to to new log file. 


Error card - call DLZUCERO to 
write appropriate error 
message. 


02] Data from control card(s) are 
~~ saved in a CSECT residing in 
DLZUCUMO addressable by all 
modules in this utility. DSECT 


name is DLZUCUMC. 


[03] Tables are not required if *ALL 
was specified. The number of 
entries in each table is equal 
to the number of data bases as 
specified on the ID control card 


or default of 16. 


DLZUCUMO - Input card processor DLZUCCTO 


[05] Test for valid combination 
~ of cards or no input (use 
default values) 


[06] Return to DLZUCUMO 


aa 


Vv 
RETURN TO 
ore CHART 


HIPOMAT 1.1 Diagram - 4.9.1.1-01 


Ref 






Notes Routine] Label 


[ou] This information is filled from DDNUMCHK 
the DBO and/or DB1 card(s) if 
present. 


If any errors in Steps 3,4 or 5, 
call DLZUCERO to write error 


[95] 
message and exit. See Chart 
4.9.1.4 


ERROR 


GETMAIN 


HIPOMAT 1.1 Diagram ~ 4.9.1.1-01 
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CHART: DLZUC150 
PAGE 1 OF 2 
Input Processing Output 
FROM SORT OR aS ee te ee 
DLZUCUMO CHART 
aI 
ef 4ay DLZUC150: 
eace] > 
PARAMETER ———-1/ —— : os 
LIST eS oy 01] Establish addressability 
ACRECORD) samad: i and save sort parameter 
A(RTNCODE) list address 
[02] If initial entry, open 
LOGIN and LoGouT (if 
needed). Obtain workspace 
via GETVIS 
rN ~~ l--—---—") [03] Read log records bypassing | 
] j : all but '2F* and ‘50° 
\ / 
LOGINO1-99 
[os The °S50° record is 
bypassed under certain 
conditions 
~~ ---4N oT. 
[05] Write the selected °50*%  -+-------~- —— p14 / \ 
record to output log file ] j 
N 7 
LOGOUT 
DLZUCUMO - CHANGE ACCUMULATION UTILITY 9 ee ee “HIPOMAT 1.1 Diagram — 4.9.1-2-01 
Notes Routine} Label Ref Notes Routine] Label Ref 
ee ee eee a ne D. No dbname match and log {| | | 
[oa] Program has two entry points as 2 . 
ae date/time < purge date/time 
follows: 
A. DLZUC150 - E.P. from SORT. [os] Write log record for following 
~~" #608 ; 
Entered when sort wants 
another input record A. *ALL on DB1 card 
B. DLZUEX15 - E.P. from 4.9.1. B. Dbname match and dbname on 


DLZUCUMO. 


On EOF the file is closed. If 
more input specified, xx 
(LOGINxx) in the DTF is 


incremented by 1 and the next 


[03] 


log file is opened. 


[o4] Bypass °50* record for 


following: 


A. *ALL and log date/time < 


purge date/time 


Dbname match and log 
date/time < purge date/time 


No dbname match and *OTHER 
not specified 


DLZUCUMO - CHANGE ACCUMULATION UTILITY 


248 


DB1 card 


No dbname match and *OTHER on 
DB1i card 


HIPOMAT 1.1 Diagram - 4.9.1.2-01 
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CHART: DLZUC1i50 
20F 2 


2 PAGE 
Input Processing Output 
ie LOG RECORD 
{os Pass selected log records ---~—---—-—~—-—~— ‘ = ies cies ec } 
to SORT M eereeyereane 
Jband\ 
< fee} > 
Nem 





{07} If any error occurs, exit 
to DLZUCUMO at entry point 
DLZERRTN eevee! > 


{e8] After all input records 
are processed return to 


caller 
[eseeeace 
wriees =] 
Nar 
Vv 
RETURN TO 
CALLER 
DLZUCUMO - CHANGE ACCUMULATION UTILITY en gn eae Gee Teo ace ~ “HIPOMAT 1.1 Diagram - 4.9.1. 2-02 
Notes Routine] Label Ref Notes Routine Label Ref 
[06] Pass the following to SORT: 
A. ‘2F* after high date/time 
moved in 
B. *50°* and *ALL on DBO card 
Cc. *50° - dbname match and 
dbname on DB1 card 
D. °50° no dbname match and 
*OTHER on DBO card 
07] A special entry point is needed 4.9.1 
~™ to return control to DLZUCUMO 
immediately after an error 
condition is detected. 
DLZUCUMO - CHANGE ACCUMULATION UTILITY || ~~~ ~~—~CS;«T«]73}PETTStST RB MAT Led Diagram - 42901. 2-02 
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CHART: DLZUC350 
; PAGE 1 OF 1 
Input Processing output 


A ca ae a a a a a a a DE a a a re a ee ee Se OOO ees a oe a a oe a a a SS 


FROM SORT 


| are DLZUC350: 
oe] > 











——--;/ 
PARAMETER SORTED LOG _ 
LIST RECORD | REESE 01] Receive log record from 
A(LOGREC) |J [ \-=- ai 1 ™ sort 
A(RETNCOD) Soa" [o2] Initial entry processing 
i = ’ as follows : 
A. Process ‘2F* record and 
obtain workspace via 
GETVIS 
B. Determine device type 
for CUMIN (if 
specified) and CUMOUT 
SORTED LOG — -a4\ see 
ECORD ss | pwn IN [03] Sorted log records are = -~--~—-~--— Vy-a/ / \ 
{ } L merged with matching CUMIN j j 
records (if specified) and \ / 
owe ---- records written to CUMOUT pada 
/ \ CUMOUT 
| ! _ PARAMETER 
\ / [oa] When next log record ---------~- Lea LIST 
Seana needed, return to SORT loos 
CUMIN fh Ya ns macanencae 
= : . A(RETNCOD) 
[os] When both input files at fo [| —— |weee-----= 
EOF, return to SORT <n 
i 
oy 
RETURN TO SORT 
DLZUCUMO - CHANGE ACCUMULATION UTILITY oa, ge et Gye te ee “HIPOMAT 1.1 Diagram - 4.9.1.3-01 
Notes Routine} Label Ref Notes Routine| Label Ref 
I TTT | Perged with the CUMIN record | | | 
[01] SORT returns at EOF with an DLZUEX35 Fenn apenas 
—~ and written to 5 
indication that no more records 
exist. 
D. If there is no matching log 
record, the CUMIN record is 
[02] DLZDEV macro obtains data from TSTEODDB written to CUMOUT unchanged. 
PUB. Device type may be TAPE or 
DASD. E. If log records exist but no 
CUMIN, the log records are 
ae : y ned accumulated by data-id and 
[o3} The following merging logic is aoicesaite Sonat 
putas n to S 
used for comparison of LOGIN and 
CUMIN to create CUMOUT. 
[o4] A ‘delete’ return code is given 
A. For every new DMB name - data ~~ to SORT so that sort does not 
set id, a cum header record further process the current 
is written either from the . Kecord. SORT will prepare the 
CUMIN record or created from next input record and enter this 
the ‘2F* record. program at Step 1. 
B. Every CUMIN record is purge [03] 
checked by date/time as _ 
specified by the user. The DB 
P at 7 A. Free all work areas, close ENDJOB 
table as modified by DLzUC150 CUER ane CuMOEN: 
n ° 
is used for a specific DMB or 
the *ALL/*OTHER purge date is 
is B. Indicate ‘no return’ to SORT ENDSORT 
used as applicable. : 
Cc. If a matching log record is 
found, all log records with 
the same data id will be 
DLZUCUMO - CHANGE ACCUMULATION UTILITY | | ~~—~~~—~S—~<;7«7]}3DPSt*é<S~;<;<S;7;7;7 TOS KER MAT 1.10 Diagram - 4.9.1.3-01 
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CHART: DLZUCERO 
PAGE 10F 1 


A me a A A 


Input Processing Output 


A Ee A ee EL Pe SY A DP eS eo AO A Ae 


FROM CALLER 





5 ee Le DLZUCERO: 














aeee|] > 
ny / 
DLZCUMMO < : 
co oemem enenepen strat cance enemem amemanpanssanmmmamemcen dl \, [or] Obtain address of the 
MSG1 ey / [LE 
ne eee message CSECT (DLZCUMMO0) 
MSG2 
nme epee ennemnen and output DTF 
MScn 
= i  adeateteate > [02] a ite t part message and 
(en J first time through, 
5 S ateteaeateatetel A. Calculate address of 
message 
B. Set Reg 2 to next print-— SEATS fawsey } 
position me Seneccous 
c. Return to caller [ees >[5] 
ey f 
R1 
ue NON) naa {03] Calculate address of 
MSG NUM = , . 
usc Nox] message if single part 
message 
[o4] Write output message  --~-—~------ 1] eee Yoon 
l Wnd\ / / / 
———y/ eh ra mM SL AL 
Sane ed 
{05} Exit SYSLST OR tT 
(J==1 . SYSLOG 
[pees 
qo Te 
N74 
Vv 
RETURN TO 
CALLER 
DLZUCUMO - CHANGE ACCUMULATION UTILITY CRCEWY SiMe gene at map tea Goa ~~ “HIPOMAT 1.1 Diagram - 4.9.1.4-01 
Notes Routine| Label Ref Notes Routine| Label Ref 
{03} This module can be called by 4.9 
DLZUCUMO, DLZUCCTO, DLZUCi50, or 
DLZuc350. 
The address of the output DTF INITSV 
which has already been opened is 
found in the CUMCONST table. 
[02] Multi part message indicated by TESTR2 
negative Reg 2 
[03] Reg 1 contains message number MSGCOMM 
[54] Output can be to SYSLST or MSGWRT 
SYSLOG. In reality, only SYSLST 
is used. 
[05] RETURN 
DLZUCUMO - CHANGE ACCUMULATION UTILITY = = =. ~~~ ~~~ *#AEBOMAT 1-1 Diagram - 9.9.1.4-01 
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CHART: DLZBACKO 
7 PAGE 1 OF 2 
Input Processing Output 


FROM DL/I 


_——71 


sl 
e ares DLZBACKO: 








Gasea C Soleo =] 1----------- > 01] Obtain DL/I control block 
ee ee ene — = addressability via GSCD 
i call. Open log input for 
read backwards 
roN rece SaNEAINDY 02] Read and deblock DL/I log 
j j : record. Only accept 
\ / records for specified PSB 
LOGIN a P : 
[o3] Terminate processing if 
termination ‘07° or 
scheduling ‘08° record 
[04] Bypass if ‘50° record and 
. physical replace 
(= 
LOG RECORD 
A. Process all other -—-~—-------~--- eo ~- 3 - 
records for this PSB Pra eaaaaal, aes | 
Pleed\: tee 
< jee} >{DLZRDBCO 
Nprny nnn nnn 
Process log record 
4.10.2 
B. If no error occurred go 
to step 2 
DLZBACKO - DATA BASE BACKOUT UTILITY Cig eae oR | ee Ga aa im “"HIPOMAT 1.1 Diagram - 4.10.1-01 
Notes Routine] Label Ref Notes Routine! Label Ref 
[02] Initialize PSTDBPCB, PSTDGU, INIT 
PSTDGN 
[02] At end of file, go to step 6- READ 
NXTLREC 
(53 vistas 
[ou] CHKDPHYR 
[os] The log record is placed in a OK 
work area (READAREA) whose CALLBO 
address DLZRDBCO obtains via a 
V-con. 
DLZBACKO - DATA BASE BACKOUT UTILITY ny ee REPOMAT 1.1 Diagram - 4.10.1-01 
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CHART: DLZBACKO 
: PAGE 2 OF 2 
Input Processing Output 


0 ee eg PS Se ao eerste se ae a cer ap a a A a a a a A oe Ae 


ee A Ae A PP me 








06] Write appro riate es TOT) 
[26] PEDGrese | eee ] / / 447 ON 
completion message l aad / / 4_/ 
cong 7 / “NOs OW 
( { \ id 
SYSUST 0 tT 
SYSLOG 
fo7) Return to DL/I to purge 
buffers, close DMBs and 
Logout file. 
[seeccees 
are ae ne nee ee 7? 
Se, 
Vv 
RETURN TO DL/I 
DLZBACKO - DATA BASE BACKOUT UTILITY iy tae rai tag ee ipa ee gras ~HIPOMAT 1.1 Diagram - 4.10.1-02 
Notes Routine} Label Ref Notes Routine! Label Ref 
06) The input log file is closed. EOF 
The message texts are found in MSGGEN 
DLZBACMO CSECT. 


HIPOMAT 1.1 Diagram - 4.10.1-02 
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CHART: DLZRDBCO 
i PAGE 10F 2 
Input Processing Output 
ee ce ee a aera aL os DLZBACKO Sg gs te PED Oh ee aA Pat phen OP Pe pete ov eA Oe Gt 
oe 1 
Step 5A 
Lay DLZRDBCO: 
eee e| ee mate a ean ee TE te A ON NS NY A ma Re 
aac F 2 DUMMY DSG 
[oa] Initialize dummy DSG and ------. a 
: See DSGDMBNO 
PST fields and open DMB if ence nclerottishimmnander 
DSGINDA 
not open ewe enernton 
nN DSGDCBA 
Pict paca tsiewesa seen) ong DSGDCBNO 
< [ee] > DLZDLOCO amare: 
FE ee ee heen ae 
en DMB 
op 2.7.1 Pst 
. PSTDSGA 
BUFFER POOL PSTACBNH 
oo me caren ae — [02] Read data base record ce a ee ce ce ee a a 
[Seemenr—]---——---—--—-, 7 -- ian 
meen aan pemmenee containing segment data to 
be changed 
‘ped. cacao enw a 
< jee} > DLZDBHOO 
\ | iene | 7 eT re ee ee 
Read record 
2321 
[03] If simple HISAM back out 
7 log record 
Chart 4.10.2.1. 
[04] If HISAM or INDEX, back 
out log record 
Chart 4.10.2.2 
DLZBACKO - DATA BASE BACKOUT PROCESSING Tae Oe eet tb ey te” "HIPOMAT 1.1 Diagram - 4.10-2-01 
Notes Routine! Label Ref Notes Routine| Label Ref 
[oi] INIT 
[o2] The following calls are made to LOCDCB 
the buffer handler: CALLBFRH 
A. If HISAM KSDS issue PSTSTLEQ SETISAMC 
call 
B. If HISAM ESDS issue PSTBYLCT LOCBLK 
call 
Cc. If HD ESDS issue PSTBKLCT SETBLKLT 
call 
DLZBACKO - DATA BASE BACKOUT PROCESSING = Se eae ee ee  HIPOMAT 1-1 Diagram - 4.10. 2-01 
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Input 


Processing 


[05] If HD data base back out 
= log record 


Chart 4.10.2.3 
[06] Log data base change 


Ni gee 
< jee| >{pLZRDBLO 


CHART: DLZRDBCO 
[0 2 


PAGE 2 OF 
output 
A ee 
pees wed ro rN 
eZ 
PRAEIN. geswaeeweecce eel Sea 
LOGOUT 


pots peer on nnn 








\ -------- 
[07] Write data base record : iz7t > / N 
fess VIAVATTIIT SA \\/ if ’ 
areas N / 
ae 
Phmed\ penne \ / 
< jee] >] DLZDBHOO - . 
Newna/ |——----------—----- Se 
Write record 3.1 DATA BASE 
Vv 
TO DLZBACKO 
CHART 4.10.1 
STEP 5B 
DLZBACKO - DATA BASE BACKOUT PROCESSING = =. em ee tC(“i‘i HIPOMAT 1.1 Diagram - 4.10. 2-02 





Routine} Label Ref 
[06] Output log records contain the CALLLOG 
*opposite" function which was on LOG 
the input log. 








{07} The return code is checked and WRITEBFR 
appropriate action is taken 
depending on calli and return 


code. 


ee ee DT nn ee nn sa Sema ce ane mu 


DLZBACKO — DATA BASE BACKOUT PROCESSING 
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Notes Routine} Label Ref 


te en A A A a ee nw 


HIPOMAT 1.1 Diagram - 4,10.2-02 
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Input Processing 

FROM DLZRDBCO = a 

CHART 4.10.2 
I 
et_3\ DLZRDBCO: 
eene 1 > 
———-+/ 

a ee en ae eee > for] No action if key found and 


LOG RECORD Pt 
Sacasaa a mmme ( 


LIN 
<_ jeej > 
Nered7 


ann 


DLZBACKO - SIMPLE HISAM BACKOUT PROCESSING 


Notes Routine; Label Ref Notes 
[02] The address of the log record is KEYNOTFD 
input to this routine. CKSHISAM 
[02] KEYNOTFD 
[03] CHKSHISM 
[os] CALLREP 


DLZBACKO - SIMPLE HISAM BACKOUT PROCESSING 


256 


log record is physical 
delete or key not found 
and log record is physical 
insert or replace 


If physical delete get 
buffer space and move old 
data. 


Get buffer space _ 
Pisaed 


Then set buffer handler 
function to add new key 
(PSTPUTKY) 


If physical insert, set 
buffer handler function 
erase key (PSTERASE) 


If physical replace, 
replace data in buffer 
with old data 
Prrrrrrrs 
or 
VV 
Vv 
aa DLZRDBCO 


HART 4.10.2 
STEP 4 
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CHART: 


DLZRDBCO 
PAGE 1 O0F 1 


Output 


BUFFER POOL 


BUFFER POOL 


Updted seg] 


HIPOMAT 1.1 Diagram - 4.10.2.1-01 
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CHART: DLZRDBCO 
se PAGE 1O0F 1 
Input Processing Output 
+> oT FROM _DLZRDBCO ~ ~ ~ aa 
CHART 4& 2 


s 
[Lars DLZRDBCO: 
eecee!] > 

my S 


LOG RECORD BUFFER POOL 











weeny --~------------>} [01] xf physical insert for \ ane nemen 
314 [oi] t£ pny : zrrrrTTTTT > Changed 
segment KSDS, mark segment in 00 77 TT TT ere {7 cre e 
area eves es e 
buffer logically deleted 1 cee 
cinta seein! > {02} Bypass physical insert for 
ESDS 
LOG RECORD = 3 BUFFER POOL 
a a a ne ey an rn nen SY, 03} If physical replace,  -—-~----------- aN ee 
old ao +7 / |} ; wenn ny / Changed 
segment replace data in buffer segment 
Talc aaa ae with old data 
LOG RECORD R BUFFER POOL 
een ny hn n> [oa] If logical delete, reset is ce ae eae 
Old _ VITITTIVT777 > Ghanged 
segment delete code 4000000 en mon {7 delete 
See ase ass cea byte 
[vocceese 
waates =] 
VV 
Vv 
TO DLZRDBCO 
CHART 4.10.2 
STEP 5 
DLZBACKO ~ HISAM OR INDEX BACKOUT PROCESSING Sete ee a eng sce | “i HIPOMAT 1.1 Diagram - 4.10.2. 2-01 
Notes Routine} Label Ref Notes Routine] Label Ref 
{02} If segment is in an INDEX data CHKUSERT 
~~ base (primary or secondary), the LOGDLET 
pointer to the index target SETPHYRP 
segment is also zeroed. 
{02} Chain maintenance log records CHKUSERI 
~ for KSDS effectively back out 
physical insert to ESDS. 
{03} CKDICALL 
{ou} CHKLGDLT 
DLZBACKO - HISAM OR INDEX BACKOUT PROCESSING = ~~ ~~~—~~~S~<S;«T7«7;«CSRSS”:*”*~<CS”ST”S”S”” dR OMAT 1.1 Diagram - 4.10-2-2- 
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T 


Wm 
be on 
” 


Gy 
Rito 


DLZRDBCO 
r 10F 1 
Input Processing Output 


FROM DLZRDBCO 
CHART 4 ~ 10.2 




















DLZRDBCO: 


e 
“ 


eeoe] > 


“XN 


» If chain maintenance 


record, move old chain 
pointer to buffer. Make 
new log code = physical 
replace | 
t BUFFER POOL 
If physical delete, make 


[updtea seg} 


UT LOG 


3° 
bs 
F 


mH 
me 
arty 


new log physical insert. 
Obtain this space again 
and update FSEs 


si—\ 
<. fee] >{DLZDHDSO 
\_a/ b- - 
Get space 
» For physical replace, 
ey 


replace data in buffer 
with old data 


























DLZBACKO ~ HD DATA BASE BACKOUT PROCESSING HIPOMAT 1.1 Diagram - 4.10.2.3-01 
| Notes Routine} Label Ref 
{ {or} CHKCHAIN 
[02] NEXTFSE 
NOTINFS 
LASTCOMP 
NOTINFS 


CHKREPPC 


outinej Label Ref 


ZBACKO - HD DATA BASE BACKOUT PROCESSING / HIPOMAT 1.1 Diagram - 4.10.2.3-C1 
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CHART: DLZUDMPO 
PAGE 1 OF 1 
Input Processing Output 


a eS a A a hs a hn ee em a eh te cn ge ne a a a ee a a nn we A a a Lt he le en em 


From DOS/VS 


*] 
: AN DLZUDMPO : 
eocs| > 














Fe ware oe svi fo 
Ns | ae »: {03} Read control card and 
validate contents 
Control 02] Determine device type for 
card(s). [02] a” 
containing: output 
qbdnanes 
name : 
output’ file 
name(s) oe ee > {03} Load DMB and obtain 
| physical attributes of 
[pus ] data set 
{ou} Write DL/I header to 
output 
[05] Generate VSAM control 
blocks S¥YSO011 
(sys012) 
Gon \ =--4l--—-----15 [06] Read data set records, + 
( ) eee nay / [| be i ween 
| | attach DL/I prefix to 
7 . record and write 
. . sequentially 
Data set 
specified in — : fz’) 
control [07] Write successful image no mv Pears | 
card(s) _ cnt cintan accent 7 / 
copy message : va eC 
( ( 
soosccce Statistics 
Se? Gs report 
NZ 
Return to 
DOS/VS 
DLZUDMP0 - DATA BASE DATA SET IMAGE COPY UTILITY =e a “HIPOMAT 1.1 Diagram - 4.11-1-01 
Notes Routine] Label Ref Notes Routine| Label Ref 
01] Validate DBD name, input data 
3 set name, output filename(s) and 
number of output files. 
02] DLZDEV macro obtains data from 
PUB. Device type may be tape or 
dasd. 
[05] Use GENCB to generate ACB, RPL 
and EXLST. 
DLZUDMPO - DATA BASE DATA SET IMAGE COPY UTILITY = = = | += Le eee oe ~HIEPOMAT 1.1 Diagram - 4.11-1-01 
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CHART: DLZURDBO 
2 PAGE 1 0F 2 
Input Processing Output 


a a a NS er ne cae ae ae ee oe nee a a a a ae a a a a a a ee ae ee a ce a hn ce se a ee te 


From DLZRRCOO 
chart 1.1.1 


Bene | DLZURDBO: 











eeoe] > 
ay / 
PSB scD ae ‘ 
[7 Seana } [ a eenenaneieeaenta ] j ne ene ce ene — [o2] Obtain DL/I control block 
a ee Poe J = a addressability via GSCD 
i“ call and initialize 
DMB PST 
Peed Bs ete eS SEO 03] Read control card and 
I : validate content 
Sse 
| [03] Determine device type for 
ne each input 
SYSIPT 
[ou] Open data set 
<’ [ee] >[pzpEoco 
roma? | Spen ACB call. _ 
e c 
2.761 
05] If processing only 1 ——4IN 
[05] oe i ine eel *>{i9] 
input ay / 
a reoN ===1l----- 45 06] Open input file(s) and 
|* | j i : process DL/I header 
; = N / information 
\ / er 
ioegroaas DUMPIN (tape ~ padeece 3 
CUMIN (tape or disk) [07] Read and merge data and / N 
or disk) . ( ) 
write records f A 
Phend\ pan n------------ N / 
< ery SS DLZDBHOO < e 
cot Call buffer Data set 
handler 
1.3.1 
DLZURDBO - DB DATA SET RECOVERY UTILITY SS ee ~“HIPOMAT 1.1 Diagram - 4.12.1-01 
Notes Routine] Label Ref Notes Routine] Label Ref 
(01) Fields initialized are PSTDSGA, 
PSTACBNM, PSTFNCTN, DSGDMBNO. 
[o2} Validate CTL card identifier, 
DBD name, output data set name 
and number of log files. 
[03] DLZDEV macro obtains data from 
PUB. Device type may be TAPE or . 
DASD. . 
[06] DUMPIN file is mandatory and may 
be output from DLZUDMPO or 
DLZURULO. CUMIN file is optional 
and is output from DLZUCUMO. 
[07] Records are read from DUMPIN and SETFLOW 
CUMIN (via GET calls) and 
written in ascending order 
(compare by key if KSDS, by RBA 
if ESDS). Proper PSTFNCTN is 
supplied for call of buffer 
handler. 
DLZURDBO - DB DATA SET RECOVERY UTILITY ||| ~~ ~~~ ~~~ ~S~CST«T;73}PS”””””””S*dWEROMANT «121 Diagram - 4.12.1-01 
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CHART: DLZURDBO 
3 PAGE 2 OF 2 
Input Processing Output 
[os] Close input files 
09] If no log input to be wed NX pee 
{03} J ADP [ee >[23] 
processed many / bo 
0] Open LOGIN file 
filer > [29] re 
eae --- _ ——-4N = 
/ \ ee Ne IN [23] Process all log records ~---- —---Fe—/ / N 
a . Te sceae cea heed OS ee ee 8 eee I ( ) 
__/ N ] for this data set | 4 
fr Fe i 32 a * 
‘* = = Pbmnd\ pee me nnn nan een \ / 
| } 777 < jee! >| DLZDBHOO . 
— | ooeen EA a 
\ / Call_ buffer Data set 
«oe andler 
The ttn eet 1.3.1 
LOGINO1 to LOGINXX i a oe a a en ac ee 


[22] Close LOGIN file 


ais 13 Close data set 
pays >| 


7A IN ti a ai 
< feel] > DLZDLOCO 
an Close ACB call : 
[cesceess 
es }2 e 
N 7 
Return to 
DOS/VS 


DLZURDBO ~ DB DATA SET RECOVERY OTILLTY 


Notes Routine! Label Ref 


[09] LOGIN is optional. 


[22] LOGINO1 to LOGINXX files are PROCLOGS 


processed sequentially. 


DLZURDBO - DB DATA SET RECOVERY UTILITY 


Licensed Material 


- Property of TBM 


HIPOMAT 1. 1 Diagram ~ 4.12.1-02 


ee ee ee ae a ee a ce a Se A a a i en ttn cm 


HIPOMAT 1.1 Diagram - 4.12.1-02 
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CHART: a eeUREEO 
PAGE OF 2 
Input Processing Output 


Aa et a i en cn A en a te es eka ie ae asc en np ht he a tl ORO na a ene a i a en i a en a ec ee 


FROM DOS/VS 


JcL 
e 
: sly DLZURG10: 





eceee|] > 
ey / 


i ere ae , rg beeen 
m2 L ) [oi] Read control card 


oe ee ae a ei te an ee 

















SYSIPT 
[02] Determine device type and 
open first input workfile 
and output files 
rN gy bese [03] Read control data set 
| J 
N / 
sys012 a ccna cc i nem a en 
[ou] Determine device type and rf S rN 
open first input workfile is 4 j j 
and output files Teint \ / 
\ / sect 
and SYS014 
i can niente ce asin nah cenenne eat [ro / 
rN , "\ 5 \ [05] Execute SORT/MERGE bar iets | meee oe 
2 : ( ) oo ee ane / \ 7 aN 
| | N 4 \--— ( ) . ° 
7 7 rad | Fe 4 j | 
N 7 : * of 
«_e \ 7 N 4 
eS i . N / oe 
s¥s013 . 7 
ae een nn SYS010 
DLZURG10 - PREFIX RESOLUTION UTILITY === $= ee ON ee Ge ape ee ~"HIPOMAT 1-1 Diagram - 4.13.1-01 
Notes Routine] Label Ref Notes Routine| Label Ref 
[o2} DLZDEV macro obtains data from CDSIN 
PUB. Device type may be TAPE or 
DASD. 
[04] See note 2. OPENRT1 
[os] Sort is by (13,255,A,5,1,A). SORT1 
Exits E15 and E35 are described 
in chart 4.13.1.1 and 4.13.1.2 .« 
DLZURGA0 - PREFIX RESOLUTION UTILITY |= ~~ ee HIPOMAT 1.1 Diagram - 4.13.1-01 
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CHART: DLZURG10 
20F 2 











. PAGE 
Input Processing Output 
rN 0 eer ‘| a , [06] If logical relationships, ———— | pres rN 
j j \ [a= { : close intermediate file 1 —I\ \ / j j 
= -/)--— : ———4/ . 7f 
N / ‘ y and reopen it. Open LR . 7 N / 
es ie <i output file and execute s e — = 
SYS010 SORT /MERGE Sysoi1 
= ——3\ 
{07} Print statistics and  -~-----—- —Sjp--/ cr > 
message summary if Ps FA 
requested c¢ ( 
SYSLST 
[08] Close all files 
[esceseee 
rina 
V7 
Vv 
RETURN TO 
DOS/VS JCL 
DLZURG10 - PREFIX RESOLUTION UTILITY BT SE Ey bbe pe aE, a ~HIPOMAT 1.1 Diagram - 4.13.1-02 
Notes Routine} Label Ref Notes Routine! Label Ref 
[06] Sort is by (29,16,A,5,1,A). SORT2 
~~ Exits £15 and E35 are described 
in chart 4.13.1.3 and 4.13.1.4 . 
{o7] Control data set contains user SUMM 
options as specified in 
DLZURPRO. 
DLZURG10 - PREFIX RESOLUTION UTILITY = | ~~ ee HIPOMAT 1-1 Diagram - 4.13-1-02 
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Input Processing Output 


sae ema cm a eae i we en in in inte Se ete inee oem me ae cece sion dibae a a ea n  n ae ae n e ee a a th aan a ce ae car an ce a mn a en nen iran aa: 
SORT/MERGE 


[iiss 


oocee| > 


———¥ 


SORT E15 EXIT DL2X15S1: 











rN fo pmeceamecinenee 01] Read workfile records and 
j j e f|-=- J =a pass to SORT/MERGE 
e of | --—— 
\N / <7. 4 
rs \ / 
syYso13 
{02} At EOF, close workfile and 
open next one, if any. 
Otherwise indicate end to 
SORT/MERGE 
DOS/V: 
SORT/MERGE 
DLZURGi0 - SORT £15. Vet, AW eI eT Uy Mee eae eee HIPOMAT 1-1 Diagram - 4.13.1.1-01 
Notes Routine] Label Ref Notes Routine] Label Ref 
[oi] Record length is changed to 270 EXIT15S1 
to force it being greater than 
control fields. Original record 
length is saved in last 2 bytes 
of LRECL field. 
DLZURGIO.= SORT E15. °=°=~«°0=°° ~~ HIPOMAT 1.1 Diagram - 4.13.1.1-02 
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. PAGE 1 0F 1 
Input Processing Output 

FROM DOS/VS ™ 

SORT/MERGE 


5 


evce! > 
———4/ 


SORT E35 EXIT DLZX35S1: 


{02} Get records from 











SORT /MERGE 
02] Process record depending a eae x ay , ON 
on record type oz} \ “| j j 
q . . \ y) 
\ 7 er 
SY¥S014 
03} If secondary indexing, = -~-------- 
~~ write to SI output file ~ i. 
[o4] If logical relationships, ----------- ] oS Ss 7 ON 
write to intermediate file ] = \ /| j j 
au 7 \ / 
iN / “_ 
SYS010 
Vv 
TO DOS/VS 
SORT/MERGE 
DLZURG10 - SORT E35 SOSOC~C~™S eet ae ee HIPOMAT 1.1 Diagram - 4.13.1-2-01 
Notes Routine| Label Ref Notes Routine] Label Ref 
{02} Original record length is EXIT35S1 
restored before processing. 
[03] This is final output for TYPEOSRT 
secondary index relationships. 
[o4} This file used as input for ESTTYPE 
second SORT/MERGE. 
DLZURG1O - SORT E35 0 HIPOMAT 1.1 Diagram - 4.13.1-2-01 
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. PAGE 1 OF 1 
Input Processing Output 


FROM DOS/VS 
SORT/ MERGE 


et 


seen} > 











as4 
SORT E15 EXIT DLZX15S2: 
rN a f a ——— [oi] Get records from 
] ] | ; ~-- J : intermediate file and pass 
\ / : ° to SORT/MERGE 
ee N / 
SYS010 
[o2] At EOF, indicate end to 
SORT/MERGE 
[ee 
Vv 
TO DOS/VS 
SORT /MERGE 
DLZURG10 - SORT Ei5 SSS OE Ee Oe are ee HIPOMAT 1.1 Diagram - 4.13.1. 3-01 
Notes Routine] Label Ref Notes Routine} Label Ref 
[03] This file was written during EXIT15S1 
first SORT. 
DLZURG1O - SORT E15 OO AEBOMAT 2.1 Diagram - 4.13.1. 3-01 
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: PAGE 1O0F 1 
Input Processing Output 


OF Sige see eg ee ae FROM DOS/VS 2 ey oe es 
SORT/MERGE 


[Las 


eeee] > 
———4/ 


SORT E35 EXIT DLZX35S2: 


[01] Get sorted records 








[02] Write to LR output file a am ares "NS roN 
it =-3\ \ / j j 
_—=y/ . / 
SS N / 
\ / ie 
syso11 
voeeeees ee SoS pgs Se hE yen en 
Nz 
Vv 
TO DOS/VS 
SORT/MERGE 
DLZURG10 - SORT E35. SOSOSOSCS™S Sie hs oe See ee bent HIPOMAT 1.1 Diagram - 4.13.1-4-01 
Notes Routine] Label Ref Notes Routine] Label Ref 
DESURCIO — SORT ih; eg es a py te en ene ry a HIPOMAT 1-1 Diagram - 4.13.1-4-01 
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CHAPTER 3. SYSTEM CONTROL 


REGICN CONTROL 


DL/I BATCH INITIALIZATION - DLZRRCOO 


This module receives control from DOS/VS job management and serves as 
the initialization routine for batch DL/I initialization, Its 
responsibilities are to: 


e Establish base register addressability 


e Read required PARM information from SYSIPT or SYSLOG based on the 
UPSI byte setting as follows: 


Bit Value Meaning 
0 0 Read PARM information from SYSIPT 
1 Read PARM information from SYSLOG 
1-4 Reserved for Application Program use 
5 0 Storage dump at STXIT ABEND if 
STXIT is active 
1 No storage dump at STXIT ABEND 
if STXIT active 
6 0 Record data base modifications on 
System log 
1 Bypass system log 
7 0 STXIT ABEND processing if abnormal 
terminaticn 
1 Bypass STXIT ABEND precessing 


e« Determine load address for batch nucleus module (DLZBNUCO) 
*« Provide a DL/I message subroutine (DLZERRMS) 


® Branch to region control interface (DLZRRC10) 


R2 Batch nucleus (DLZBNUCO) load address 
R3 Address of PARM information 

R6 Address of SYSLOG DTF 

R7 Address of DLZEREMS 


Receives control through BALR from DL/I action module 
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R1. PST address 

R13 Save area address 

R14 Return address 

R15 Entry point address (DLZERRMS) 


Calling Module 





Passes control through branch on register 14 


REGION CONTROL PRIMARY INTERFACE - DLZRRC10 


This routine receives control from the DL/I initialization routine and 
serves as the primary interface for all DL/I program executions. Its 
responsibilities are: 

e Save input parameters 

# Load batch nucleus module (DLZBNUCO) 

e Establish SCD and PST addressability 


e Invoke parameter analysis (DLZRRAOO) 


® Branch to application program control module (DLZPCC00) 


Receives control through branch from DIZRRCO00 
Register Contents: 


R2 Batch nucleus (DLZBNUCO) load address 


Exit_Interfa 


Passes control through branch to DLZRRAOO 


R2 Address of SCD 

R3 Address of PARM information 
R9 Address of PST 

R13 Save area address 


USER PARAMETER ANALYSIS - DLZRRAOO 


Associated with each PARM format is a generalized specification table 
which describes the input PARM string format, conversion and length, and 
output parameter format. The input PARM string and its associated 
specification table are processed by DIZRRAON0. 


The PARM specification table is used to process element by element 


through the PARM value. For each parameter value there is a 
specification table element, The element identifies each parameter 
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value as fixed, positional, required, not required, or last, and 
specifies whether binary conversion is to he performed. 


If the PARM character string is of valid length, it is classified by 
format, and certain functions common tc format qroups are performed. 
The internal parameter areas are contained in the PST in the batch 


nucleus module (DLZBNUCOQ). 


These parameter areas are used as work areas during parameter analysis 


and for regicn and program control, 


and contain internal representations 


of the PARM values, remote supervisor parameter lists, register save 
areas, and application program parameter lists. 


If parameter string analysis is unsuccessful, a request is made to the 
conscle operator to re-enter parameter informaticn or terminate 


initialization. 


Layout_and Description of PARM Field 


OP AE TS A RS LD TS AS OE GS AE A A SAN AS NT OD 


xxx 


bbbbbbb 


ccc 


keyword 
operands 


‘ 
| 
1 
1 
| 
{ 
1 
{ 
{ 
{ 
1 
{ 
1 
1 
{ 
{ 
1 aaaaaaaa 
\ 
1 
| 
1 
{ 
\ 
{ 
I 
{ 
{ 
\ 
{ 
{ 
! 
I 
| 


| 





Entry Interface 


tee me RT ED tt ante MARNE Pe ce eR ED we we eh cere? ame am 


| 


XXX ,aaaaaaaa,bbbbbbb,ccc, keyword operands ! 











PARM idantifier in coluans 1-3. 
DLI 


executed, 


it 


ULU 


executed. 


ULR = HD reorganization reload utility to 
be restarted from checkpoint record. 


One- to eight-character name of the 
application program to be executed. 


One- to seven-character name of the program 
specification block (PSB) as specified in 


the PSB generation. 


If PARM is UDR, ULU, or ULR, one- to 
seven-character name of the data base 
description (DBD) as specified in the 
generation. 


Number of data hase buffer sub- fools 
required for job execution. 


HD BFR, HSBRD, ASLOG, and TRACE. 


Receives contrel through branch from DLZRRC10 


Register Contents: 


R2 Address of SCD 

R3 Address of PARM infcrmation 
RY Address of PST 

R13 Save area address 

R14 Return address 


= Data base program to be executed. 
UDR = Data base recovery utility to be 


Data base reorganization or logical 
relationship resolution program to be 


| 
| 


DBD 


a ee ee ee el ee el ee ed 
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Exit Interface 
Passes control through branch to DLZPCcCc00 


ee eee ee ae ie aS ilies BD 


R2 Address of SCD 
R9 Address of PST 


APPLICATION PROGRAM CONTROL 


APPLICATION PROGRAM CONTROL - DLZPCCOO 


This routine is used only in the batch regions. It performs some 
functions analcgous to those performed by the CICS scheduler in the 
cnline control program. It is responsible for the following functions: 
e Initializing the storage management routine 

® Invoking the application control blocks loader/relocator (DLZDBLMO) 
e Invoking the contrel program initialization routine 

e Loading the application program 

e Initializing the PL/I region (if PL/I) 


e Invoking the application program 


e Issuing an unload call in behalf of the application program upon 
termination 


e Writing the application program termination record on the DL/I log 


e Closing the DL/I log. 


Control Blocks _-_DIZPCCco0 
PST 
Entry Interface -_DLZPpcco0 


Receives ccentrel through branch from DLZRRC10 


Register Contents: 


R2 Address of SCD 

RO Address of pst 
R13 Save area address 
R14 Return address 
R15 Entry point 


Exit Interface _- Block Loading 


Passes control through BAL to DLZPINIT (entry point in DLZDBLM0) 
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R2 Address of SCD 

Ro Address of PST 

R14 Return address 
Exit Interface - Application Program 


Passes contrel through BAL to application program 


R1 Address of PCB address list 
R13 Save area address 

R14 Return address 

R15 Entry point 


Passes control through branch to call analyzer (DLZDLA00) (batch 
contrel prograrn) 


Register Contents: 
R1 Address of PST 
R13 Save atea address 
R14 Return address 
R15 Entry address of call analyzer obtained from the 


analyzer entry point field in the SCD 


R1 Address of PST 

R13 Save Area Address 

R14 Return Address 

R15 Entry point of forced write log routine obtained 


from SCD at label SCDREENT 


Issues an SVC 2 Normal EOJ Supervisor Call. 


APPLICATION CONTROL BLOCKS LOAD AND RELOCATE - DLZDRLMO 


This routine performs the functions of loading and relocating DL/I 
application control blocks. Once the blocks are loaded and offsets 
resolved to actual addresses, the SDBs in the PCBs are connected to the 
appropriate PSDBs in the DMBs. The JCE data sets in the data base are 
connected to the appropriate ACBs in the DMBs, and control is returned 
to the calling routine. 
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The module first checks to determine if this is a 'DLI', "ULU', *UDR', 
or ‘ULR' execution. If *DLI' execution, the PSB name extracted from the 
PARM card is moved to the PSB directory and the PSB is loaded. The 
address of the PSB segment intent list and the PSB are stored in the PSB 
directory. The index work area (if required) is allocated and addresses 
are resolved. Next the intent list is scanned and the DMB directory is 
constructed frem it. The DMB directory entries are scanned and the 
DMBLCOADR subroutine (see below) is called to load and relocate the DMBs 
in the directory. Upon completion, the SDBs are connectad to their 
corresponding ESDBs, the JCB DSGs are connected to their ACBs, and 
return is made to the caller. 


If 'ULU', "OLR", or "UDR! execution, a special utility PSB is loaded 
from the DCS/VS Core Image Library. The PSB name is generated from the 
DBD name in the PARM statement. The remaining processing is the same as 
for 'DIT'. For the following utilities there is no PSB name in the 
parameter information: 


DLZURPRO - Data base prereorganization 
CLZURGSO - Data base scan 
DIZURGPO - Data base prefix update 


These utilities perform dynamic block loading using the DLZBLKLD macro 
(see Chapter 12 for a description of this macro). 


The DMBLOADR subroutine performs the loading and relocation of DMBs. 
The [MB directcry is accessed and the DMB name extracted from it. A 
load is issued for the DMB and, if HDAM, the randomizing module 
extracted from the DMB is loaded. Next, the DNB directory entry is 
updated with a buffer size indication. For HD, this value is the 
control interval size of the data set; for HISAM, it is the logical 
record size, Then all offsets are relocated to addresses, and control 
is passed to DLZCPIO09. 


INTERFACES - DIZDBLMO 


<P Op ob am 62 ae oS me OD ae OP ean a ee 


R9 PST address 

R13 Address of one of a set of prechained save areas 
R14 Return address 

R15 Entry point 


CONTFEFCL PRCGHRAM INITIALIZATION - DLZCPIOO 


This routine receives control from the application control blocks load 
and relocata mcdule and completes the intialization of the DL/I batch 
system. It is responsible for: 


® Allocation cf the buffer rool 

Formatting the buffer pool prefix, cne or more subpool prefixes, and 
the buffer prefixes 

Loading all required DL/I action modules 

Initializing the SCD 

Opening the DL/I log 

Writing the application program scheduling record on the DL/I log 


a a a a aT 


Receives control through branch from routine DLZDBLMO. 
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R Address of SCD 

R3 Address of PDIR 
R9 Address of PST 
R13 Save area address 
R14 Return address 
R15 Entry point 


Through return to DLZPCCO0 


R1 Address of PST 
R2 Address of SCD 


LANGUAGE INTERFACE 
LANGUAGE INTERFACE - DLZL1000 


The language interface provides communication between the application 
program and the program request handler. A copy of this mcdule is link 
edited with user applicaticn fregrams. 

The language interface has responsibility for: 

* Storing the user's registers in the save area provided. 


e Providing a specific entry for Asserbler, COBOL, and PL/I application 
programs. 


e Locating the entry point of the program request handler. 


e Passing control to the program request handler 


Receives control through branch from application program 


Register Contents: 


R1 Call parameter list of implicit or explicit format 
R13 Save area address 
R14 Return address 
R15 Fntry point 
Exit Interface 


Passes control to program request handler through branch from DLZL1I000 
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Register Contents: 


RO Language identifier code 

R1 Parameter list 

R2-14 As entered from application prograr 

R15 Entry point of program request handler 
BATCH NUCLEUS 


PROG FAM REQUEST HANDLER - DLZPRHBO 


The interface between the application program and the DL/I batch or 
control program is managed by the program request handler routine 
(DLZPRHBO) in module DLZBNUCO. It accepts parameters passed to it by 
the language interface module (DLZL1I000), validates them, and passes a 
parameter list to the call analyzer. 

The program request handler accepts three call list formats: implicit 
direct, explicit direct, and explicit indirect. COBOL and Assembler- 
language programs may use either the implicit direct or explicit direct 
call list formats. Since special provisions are made for PL/I in 
handling the explicit indirect call list, it may be used only by PL/I 
language programs. 


The first parameter (argument 0) of the DL/I CALL determines whether the 
list is explicit or implicit. If the argument contains the address of 
the parameter count (count of the number of arguments that follow), this 
list is an explicit list. If the argument contains the address of the 
DL/I CALL function, this list is an implicit list. 

The responsibilities of this routine are to: 


e Verify parameter list addresses aligned and within the dynamic area 
of the machine 


e Reformat explicit parameter lists to implicit prior to submission 
e Reset PL/I STXIT PC processing 

e Provide caller's parameter list to the call analyzer 

*® Return data to application pregram work areas 

e Maintain PL/I variable-length character string dope vector 


e Identify abnormal termination condition 


Return directly to application program 


Control Blocks _-_DLZPRHBO 
PDIR 
PST 

Entry Interface - _DLZPRHBO 


Receives control through branch from DIZLI000 
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RO Language indicator - zero if COBOL or Assembler; 
nonzero if PL/I 

R1 Address of embedded parameter list in application 
program format 

R13 Save area address 

R14 Return (to application program) 

R15 Entry point address 


Exit Interface - to Call Analyzer DLZDLA00 


Passes contrel thrcugh branch using entry point from SCD 


Register_contents: 


R14 Address of PST 

R13 Save area address 

R14 Return address 

R15 Entry point of call analyzer 


Exit Interface -_to STXIT ABEN 


20 ee on 2e oe ae a a ana oe -. —_ ee wwe: 


DEZABEND 


Passes control through branch using entry point from SCD 


Return to Arplication Program 


Passes control thrceugh branch using return address 


R2-12 Restored to contents upon entry from application 
program to language interface, DLZLI000 
R14 Return address of application program 


STXIT ABEND - DLZABEND 


Abnormal terminations invoked through the DOS/VS STXIT or terminations 
requested by DL/I action modules are handled by DLZABEND. 
Responsibilities are as follows: 

e Close the DI/I log. 

e Issue an UNLD call to writs the last records for Simple HSAM, HSAM, 
Simple HISAM and HISAM or write all buffers altered by the user. The 
UNLD call also closes the data base. 

e If a dump is requested, write a formatted dump of DL/I control blocks. 


e Cancel the partition. 


Receives control through DOS/VS STXIT PC interface or branch from the 
program request handler (DLZPRHBO). 
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Exit_Interface -_to DOS/VS_CLOSE 


weep OF ae DRED cake SD aeee SRD eS 


Passes control through SVC 2 ($$BCLOSE) for data base logger 


R1 Address of PST 

R13 Save area address 

R14 Return address 

R15 Entry address of call analyzer obtained from SCD 


Passes control through SVC 6 (CANCEL) or SVC 2 ($$BDUMP) 


DL/I IWAIT - CIZIWAIT 


This module receives centrol when a DL/I action module requires DOS/VS 
wait linkage. 


R2 Address of event control block 
R14 Return address of caller 
R15 Entry point of DLZIWAIT 


Passes control through SVC (WAIT) to DOS/VS. 


START MPS TRANSACTION - DLZMSTRO 


This module is invoked by the user via a specific transaction code 
(CSCA) to start multiple partition support (MPS). The responsibilities 
of this module are to: 
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® Check if the DL/I nucleus is loaded. 
e Check if MPS is already active. 


e Attach the master partition controller (DLZMNPCO0). 


Approximately 500 bytes. 


Control _ Blecks_ Addressed 


CSA Common System Area (CICS/VS) SCD System Contents Directory 


R13 Contains CSA address 


MASTER PARTITICN CCNT ROLLER (MPC) - DLZMPCO9D 


The master partiticn controller (MPC) is attached by the start 
transaction module (DLZMSTRO). 


The functions perfermed by the master partition controller are: 
e Initialize the MPC partition table (DLZMPTCT). 
e Define all XECBs required for cross partiticn communication. 


*® Process all start batch partition controller (BPC) requests and 
attach a BPC fer a specific batch partition. 


*® Process all stop partition requests. 


e Process the abend condition if the hatch partition controller attach 
fails. 


e Process the stop transaction request to terminate MPS. 


® Return contrel to CICS/VS after all activity is completed. 


2 DI LD EE ED A AD ES AS AED RS ED CY SS SS TS TD OD 


MPCPT MPC Partition Table 

SYSCOM System Communication Region 

CSA Common System Area (CICS/VS) 
SCD System Contents Directory 
MPCECBLT CICS ECB Pointer List 

COMREG Partition Ccmmunications Region 
TCA Task Control Area 
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R12 Contains TCA address (at entry) 
R13 Contains CSA address {at entry) 
Macros_Used 


DFHKC TYPE=WAIT 


DFH 
CFH 
XEC 
XEC 


KC TYPE=ATTACH 
KC TYP E=RETURN 
BTAB TYPE=CHECK 
BTAB TYPE=DEFINE 


XECBTAB TYPE=DELETE 

XPOST 

BATCH FARTITICN CONTROLLER (BPC) - DLZBPCOO 

The katch partiticn contrcller (BPC) is attached by the master partition 
controller (MPC) when a start request has been made by a batch 


par 


tition. The functions performed by the batch partiticn controller 


are: 


e 


Thi 
DLZ 


Define XECB for cross partition communication with the MPS batch 
initialization (DLZMINIT), MPS batch program request handler 
(DLZMPRH), and MPS batch termination (DLZSTERM). 

Issue the DI/I scheduling call on behalf of the batch partition. 
Process all DL/I calls on behalf of the batch partition. 

Process ABEND conditions occurring in the batch partition. 


Return control to CICS/VS for normal and abnormal conditions 


S module must be link-edited with the language interface module, 
LIO00. 


MPCPT MPC Partition Table 

TCA Transaction Control Area 

TWA Transacticn Work Area 

PST Partition Specification Table 
PPST Prefix PST 


R12 Contains TCA address (at entry) 
R13 Centains CSA address (at entry) 
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| Macros Used 


DFHKC TYPE=WAIT 
DFHKC TYPE=ATTACH 
DFHKC TYPE=RETURN 
XECBTAB TYPE=CHECK 
XECBTAB TYPE=DEFINE 
XECBTAB TYPE=DELETE 
XPOST 


MPS BATCH - DLZMPIOO 


The MPS batch module is made up of the following five routines: 
1. MPS Batch Initialization (DLZMINTIT) 

2. j$MES Batch Termination (DLZMSTERM) 

3. MPS Batch Program Request Handler (DLZMPRH) 

4, MPS Batch Abend (DLZMABND) 

5. MPS Batch Message Writer (DLZMMSG) 


Size_of Module 

The MPS batch module contains approximately 5300 bytes of code. This 
includes constants and other non-code areas that are not included in the 
*size of medule' given for each routine. 


A separate description for each routine is given in the following text. 


This is one of five routines that make up module DLZMPIOO to support the 
batch part of MPS. 


DLZMINIT reads the input parameter statement and checks it for validity. 
It then loads the user's preqram. Then it determines what to use as a 
partition identifier by checking the PIK in the BG COMREG. This value, 
modified and made printable, is put into each XECBTAB macro issued. 


After saving tke program name and PSB name for use hy online, an XECB, 
DL2XCBnl, is defined in the batch partition for communicating with the 
online partiticn. The online partition XECB (DLZXCBn0, with n being the 
identifier) is xposted. This lets the online partition know that there 
is an MPS katch job ready to run in this batch partition. 


When the online partition completes its initialization, the batch 
-routine sets up STXIT routines, finishes other initialization 
activities, and goes to the user program. 


DLZMINIT is entered by DOS/VS job control at the start of the job. 


Approximately 1270 bytes (excluding constants and other noncode areas). 
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Control Blccks Addressed 


MPCPT MPC Partition Table 

TCA Transaction Control Area 

PST Partition Specification Table 
COMREG Communication Region 

XCBl XECB DLZXCBnl and data following it 


DTFs for SYSLST, SYSLOG, and SYSIPT 
STXIT AB Savearea 

STXIT PC Savearea 

XECBs DLZXCBnO, DLZXCBn2, DLZXCBn3 


Register Contents (at Entry to Other Routines 
e User Program 
R1 PCB list if not PL/I; or a pointer to a list containing 
the fcllowing if PL/I: 
- address of PCB list 
- address of location containing size of dynamic storage 
- address of start of dynamic storage 
R13 Save area 
R148 Return address 
R15 Entry address 


e Message Writer (DLZMMSG) 
R14 Return Address 


® ABEND Routine (DLZMABND) 
No special register values 


Macro _ Used 


XECBTAB TYPE= DEFINE 
XECBTAB TYPE= DELETE 
XECBTAB TYPE= CHECK 
XPOST 

XWAIT 

OPEN 

CLOSE 

GET 

POT 

CANCEL 

STXIT Pc 

STXIT AB 

MVYCOM 

COMRG 

LOAD 


MPS Batch Termination 


This is one of five routines that make up module DLZMPIOO to 
support the batch part cf MPS. 


The MPS batch termination routine is entered when the user program 
finishes. It tells the online partition to do termination activity, 
deletes its own XECB, and ends the job. 

Size_of Module 


Approximately 100 bytes. 
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XCB1 XECE DLZXCBn1l and the data following it 


Register Contents 
Registers have the same values at entry as when MPS batch 
initialization (DLZMINIT) completed. 


Macros_Used 

XPOST 

XWAIT 

EOI 

XECBTAB TYPE=DFELETE 


MPS_ Batch Program Request Handler _-DLZNPRH 
This is one of five routines that make up module DLZMPI0O 
to support the batch part of MPS. 


The MPS batch program request handler routine is entered 

on each call te DL/I made by the user program. The user 
call list is validated and set up for the online partition 
to use. Then the online partition is notified by an XPOST 
of XECB DLZXCBN2. When the call is complete, data is moved 
to the user's I/O area. 


ee a a AD an ee oe 


Approximately 646 bytes (excluding constants and other hon-code 
areas). 


MPCPT MPC Partition Table 

TCA Transaction Control Area 

PST Partition Specification Table 
XCBl XECB DLZXCB1 


Register Contents 


e At entry: . 
RO If=1, PL/I; if=0, not PL/I and value is ignored 
RL If PL/I, points to list of pointers to parameters; 
if not PL/I, points to list of parameters 
R13 Save area 
R14 Return address 
R15 Entry address 


e Message Writer (DLZMMSG) 
-R1" $ Return address 
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This is one of five routines that make up module DLZMPIOO 
to support the batch part of MPS. 


The MPS batch abend routine has three entries: 


1. PC STXIT 
2% AB STXIT 
3. Other MPS tatch routines that cause abnormal termination. 


The first two each identify which way the abend routine was entered. 
They then send an error massage, Then the third entry joins 

them as the online partition is notified. All entries delete 

the batch XECB and cancel or dump. 


When an abnormal termination situation has occurred, DLZMABND 
is entered by: 


© DIZMINIT 
DLZMTERMS 
DLZMPRH 


STXIT AB Save area 
STXIT PC Save area 


Register Contents 


® At entry 
No special values except base registers initialized 


« Message Writer (DLZMMSG) 
R14 Return address 


MP Tf dump requested 
CEL If no dump requested 


STXIT AB If atnormal end entered by DOS/VS 
STXIT PC If program check determined by pDOS/VS 
XPOST Entry Other abnormal end when BPC must be notified 
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Hacros_Used 


XPOST 
XECBIAB TYPE=DELETE 
JDOMP 
CANCEL 


This is one of five routines that make up module DLZ™PIDN0 
to support the batch part of MPS. 


The MPS batch message writer routine handles all messages 
issued by the MPS batch partition. At entry, a parameter 
list is set up. The first parameter is always a pointer to 
the message number. Other parameters, if any, are as needed 
for the message. 


When a message is to be writter to SYSLOG and SYSLST, the 
DLZMMSG routine is entered by: 


e DLZMINIT 

e DLZATERS 

e DIZMPRH 

e DLZMABND 
Size of Module 


° At entry: 
R14 Return address 
Base registers already initialized 


* At entry to message table (DLZMMSGT): 


R1 Points to parameter list 
RY Base register for DLZMMSGT 
R5 Address of where message is to te placed 


R7 Length of message set up'before calling DLZMMSGT; 
after call, R7 has total message length 
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STOP MPS TRANSACTION - DLZMSTPO 


This module is invoked when a user wants to stop MPS. The 

user inputs a specific transaction code (CSDD) defined to initiate 
the stop transaction processing. The module then notifies 

(XPOST) the particular XECB that causes the MPC to end the 

MPS envircnment,. 


After the XPOST, the MPC allows batch jobs already executing 
to complete, but will not allow any new ones to start. 


This transaction should be started before CICS/VS non-immediate 
shutdown is initiated. 


ze_of Module 


be 


Approximately 250 bytes. 


cros Used 


is 





XECBTAB TYPE=CHECK 
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The call analyzer module is used for initiation of all data base calls. 
Under normal circumstances, it receives contrcl from the DL/I online 
program request handler (DLZODP00) in the CICS-DL/I region or from the 
batch application program request handler (DLZBPRO0). It receives 
contrel frem applicaticn program contrcl (DLZPCC00) at termination of a 
DL/I batch partition or online task termination (DLZODP01) in a CICS- 
DL/I region. 


For internal DL/I calls to update an index data base, this module 
(DLZDLA00) receives control from the index maintenance module 
(DLZDXMTO). 


The call types handled by the call analyzer module can be divided into 
two groups: (1) normal data base calls, and (2) special control calls, 
which are sometimes referred to as ‘pseudo’ calls. The special calls 
are GSCD, get SCD address; TERM, write all buffers altered by that user; 
and UNLD, write last records for simple HSAM, HSAM, simple HISAM, and 
HISAM load or write all HDAM and HIDAM data base buffers altered by that 
user and close all data sets in the system. 


The primary responsibilities of the call analyzer are: 


e Test the first parameter in the call list for a valid four-character 
function and encode this into a one-byte function code. 


e® Test the second parameter in the call list for a valid PCB address 
and store the PCB address in the PST. 


e Store the third parameter in the call list in the PST. This is the 
user's I/O area address. 


°e Verify the format of all segment search arguments (SSAS) in the call 
list and fill in the ccrresponding level table entry for the SSA in 
the call. 


® Do required checking based on call type and SSAs. 
e Do sequence checking when loading a data base. 
e Pass control to the proper action medule to process the call. 


If a data base call requires the VSAM control blocks or SAM DTF 
representing the files within a data base to be opened, the analyzer 
calls upon the DL/I open/close module (DLZDLCCO) to perform the data 
wanagement open for all files which may be needed for that PCB. The 
DL/I open/close module is called when the UNLD call is received to close 
all DiyI.data bases opened in the batch partition. 


CONTROL ELOCKS - DLZDLA0O 


PST 
PDIR 
PSB 
DDIR 
DMB 
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PCB 
JCB 
Leyel table 
STB 
FOB 
SIZE OF MODULE - DLZDLAOO 


This module contains approximately 4000 bytes of code. 


INTERFACES - DLZDLAOO 


Register Contents 


R1 = PST address 

R13 = Save area address 
R14 = Return address 

R15 = Entry point address 


Receives contrel from DLZPCC00, DLZODP00, and DLZPRHBC. 
Passes contrel to DLZDLROO, DLZDLDOO, DLZDDLEO (DL/I action modules): 


These modules need not save the analyzer's registers. They can return 
to the analyzer's entry point plus an offset stored in the SCD. 


Call to DIZDLOCO - DL/I open/close: 


PSTFNCTN has open function 
PSTEBPCE has address of the PCB 


Call to DLZDBHOO - buffer handler: 


PSTFNCTN is PSTPGUSR (X*07"') 


The functicn cf module DLZDLOCO is to cpen and close the DL/I data bases 
in either the CICS online control region or the batch partition. DOS/¥S 
openyclose macros are used to open and close data sets. DLZDLOCO 
opens/closes VSAM ACBs for all data base organizations besides HSAM and 
Simple HSAM, where DTFs are used. For simplicity the term ACB is used 
in the following description where ACB or DTF would be correct. For a 
HISAM data base with all functions, except for PSTOCDCB, both the KSDS 
and FSDS are openedysclosed. 


The PSTFNCTN byte in the PST determines the type of operation to he 
rerformed by DIZDLCCO. 


* PSTOCDCB (x*'10') - Only one ACB is cpened/closed. It is located by 
DSG address (PSIDSGA). 


® PSTOCPCE (X'02') - For PROCOPT = L or LS one data base is opened. 
For PROCOPT # L or ILS: 
All SDBs of that PCB are scanned and all referenced data bases are 


opened, that is, index data bases and logically related data bases 
are opened/closed with this call. 
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@ PSTOCDSG (X*'40') - One or two (HISAM) data bases are opened/closed. 
The ACB is located by DSG address (PSTDSGA). 

e PSTOCALI (X*08') 
- For open: 


All ACBs specified for initial opening are opened (CICS online 
control region cnly) 


- For close: 
All ACBs in the system are closed. 


e PSTOCDMB (X'01') - The ACBs of one DMB are opened/closed. The DMB 
directory address is passed in register 2. 


DLZDLOCO ccempares the following values specified in DBD generation with 
the VSAM catalog entries for a data base: 


® Control interval size 
e® Key length (KSDS) 
e Relative key position (KSDS) 


e Highest RBA used in the data base based on the PROCOPT. For example, 
PROCOPT=L requires an empty data base (high RBA=0), while a data base 
must contain data if PROCOPT4#L (high RPA O). 


For HISAM, HIDAM, and HDAM data bases, the first control interval of the 
VSAM ESDS is reserved for the DL/I control record (see Chapter 12). 
DLIZDLCCO maintains this record. 


® If PROCOPT=L or LS, space is acquired for one control interval and 
the DI/I control record is constructed. The buffer handler 
(DLZEPBHOO) is called to write the DL/I control record. 


An open record, code X'2F', is written to the log tape whenever a data 
base is opened. If the open call is successful, bit zero (JCBOPEN) of 
the JCBORGN byte equals one (PCB call); and bit zero (PSTOCBAD) of the 
PSTFNCTIN byte equals zero. 

All PSDBs of a DMB are scanned for variable length segments with the 


edit/compression routine, All edit/compression routines that have 
"INIT' specified are called after "cpen" and before "close", 


SIZE CF MODULE - CLZDLOCO 


The DL/I open/close module contains approximately 3000 bytes cf code. 
INTERFACES - DLZDLOCO 


Register Contents 


R1 - PST address 


R2 - DDIR address if it is a close DMB call 
R13 - Save area address 

R14 - Return address 

R15 - Entry pcint address 
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CONTROL BLOCKS - DLZDLOCO 


* DL/I control record - DLZRECO 


e “PSTFNCTN field cf the PST: 


Bit 


eaning 


i<t 
iw 
tr 
Y= 
iD 
cae 


Process DSG 

Open for load 
Process specific ACB 
Close call 

Open call 

Open/close all DMBs 
Open/close a PCB 
Open/close a DMB 


& wh «a 
wed ek eh eh CD ed od wed 


anu 


This module performs the logical actions invclved in replacing or 
deleting segments ina DL/I data base for all organizations, except HSAM 
(which has no delete or replace). 


The replace function checks to ensure that the key field of the segment 
was not inadvertently altered and that the replace rules were not 
violated. If the segment to be replaced is indexed, this module 
interfaces with the DL/I index maintenance module (DLZDXMTO). 


The first check made upon entry is a key check of the contents of the 
PCB key feedback area to the key of the segment in the user's I/O area. 
If there are any changes, a 'DPA' status code results. Next the segment 
is retrieved and the sequence fields are checked for any changes. If 
any changes occurred, a "DA' status code again results. Then the 
remainder of the data is checked for changes. If there were no changes, 
a blank status code is returned. If there were changes, the data is 
replaced. 


If the segment is a logical child, a check is made to insure that 
teplace rules were not violated. A check for replace rules is done 
prior to the destination parent's retrieval. If the logical child has a 
physical replace rule, then data must not be changed if retrieved from 
the logical path, ctherwise an 'RX* status code will result. If the 
replace rule is logical, no status code will be given and no data will 
be changed for the logical child if it is retrieved from the logical 
path. If the replace rule is virtual, then a replace will be done if 
the destination parent does not violate any rules. At this stage, a 
decision will be made whether or not the data is to be replaced. If the 
data is to be replaced, a check will be made of the other portion of the 
concatenated segment before actually accomplishing the replace. The 
destination parent is then retrieved and checks are made for keys, data, 
and rules on the destination parent. If all checks are met, the 
destination parent is replaced prior tec replacing the logical child. 


If the segment to be replaced is in an HDAM or HIDAM data hbase and the 
segment is variable length, the segment and its prefix may be separated. 
The separation of data is determined by the min-byte value of [BDGEN and 
the current size of the segment. Also in this regard, if the segment 
was previously separated from its prefix pricr to a replace call, the 
replace will attempt to rejoin data and prefix. 
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The delete function for a HISAM data base includes a check of the key 
field of the segment to be sure this is the segment to be deleted. If 
the organizaticn is simple HISAM, the buffer handler is called to issue 
a VSAM ERASE. Otherwise, the segment is deleted by setting the HISAM 
segment delete bit. In addition, if this is the root segment, the 
record delete bit is also set. 


The delete functicn for HDAM or HIDAM data bases includes a check of the 
key field cf the segment to ensure that the segment is truly the segment 
to be deleted. A check is also made to ensure that delete rules stated 
for the DMB will net be violated. If logically related segments with a 
physical delete rule exist in the data tase within the physical 
hierarchy starting with the segment to be deleted, a scan is made of all 
the segments tc ensure that they include no segment which has not been 
logically deleted. 


A scan of the data base from the point of deletion is performed. During 
this scan, each segment is accessed twice: once on the way ‘down', and 
again on the way ‘up*. While scanning '‘down', any segment in a logical 
relationship is inspected to determine its eligibility for deletion and 
to terminate as many logical relationships as possible. In some cases 
(for example, the last logical child for a logical parent which has 
already been deleted through its physical path), the deletion of all, or 
a portion of, the logically related data tase record is required. In 
this case, the delete action is expanded to perform the total delete 
function (except for the checking) for the new data base record. Then 
the scan of the original data base record is continued at the point of 
exit. 


When scanning ‘up', an interface with index maintenance (DLZDXMTOQ) is 
made if the segment is indexed. Physical pointers are adjusted to 
bypass any removable segments (HDAM or HIDAM segments which are no 
longer required) whose space is released by interfacing with the space 
management module, DLZDHDSO. For nonremovable seqments (segments 
required to remain because of existing logical relationships), a logical 
delete bit is set to indicate the status of the segment, 


A work area is obtained from the DL/I buffer pool to maintain the 
concatenated key and position of segments in the data base record(s) 
keing scanned during delete or for calls to index maintenance during 
replace. 


INTERFACES - DIZDLEOO 


Register Contents at Entry 


R1 Contains the address of the PST 

R13 Points to the current save area 

R14 Contains the DL/I analyze call function module 
(DFSDLA0N0) return point 

R15 Contains the module entry point 


Register Contents at Exit 


R1 Contains the PST address 

R13 Points to the current save area 

R14 Contains the DL/I analyze call function aodule 
(DFSDLA0N0) return point 

R15 Contains a return code (0) 
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Segment delete codes utilized in the second byte of the prefix of each 
DL/I segment: 


1eee ees. This segment has been deleted (HISAM only). 
else eeoee This data base record has been deleted (HISAM cnly). 
eels eves This segment has been processed by delete. 
esol e«ee This variable-length segment has its data separated 
from the prefix. 
eoee Xoo RESETVEA 
ecee of2. This segment is no longer required by its physical parent. 
ecoee oot. This segment is no longer required by its logical parent. 
eves eee! This segment has been removed from its logical twin chain. 
1111 1111 This segment contains the separated data of a variable- 
length segment. 


DELETE/REPLACE WORK SPACE ACQUISITION AND THE WORK SPACE PREFIX 


DLZDLDO0O acquires space to build work area(s) from DLZDBHOO (buffer 
handler) via a PSTGBSPC call. The calculated minimum size required is 
indicated in PSTBYTNM. If the space is available, the buffer handler 
returns the address of the selected buffer in PSTDATA and its size in 
ESTWEK1, 


The first section cf the work space contains a prefix whose format and 
contents are described in Chapter 12. Immediately following is the work 
area containing informaticn concerning the segment to be deleted (or the 
index source segment to be replaced), its physical data base (HIDAM or 
EDAM), and other segments in that data base record. 


If a second work area is needed because of logically related segments 
and the space remaining in the current work space is large enough, the 
next work area will be allocated in the same work space (buffer) 
immediately following the previous work area, Forward and backward 
chains are maintained. If the remaining space is not large enough, 
another buffer is obtained from the buffer handler and chained to and 
from the previcus werk space. 


Except in the case of an error condition, work areas are freed in the 
reverse order in which they were allocated. When the work area freed 
was the first one in the work space, the buffer is freed via a PSTFBSPC 
call to the buffer handler. 


INTERFACES - DLZDLDOO 


This module interfaces with the following modules: 


DLZDBHOO 
LLZDHDSO 
DLZRDBLO 
CLZDXMT0 
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R1 - PST address 

RZ - SCD address 

R3 - SDB address 

R4 - DMB address 

R5 - PSDE address 

RE/R10 Work registers 

R11 - Base - (subroutine CS ECT) 
R12 - Base (main CSECT) 


R13 - Current save area 
R14/R15 - Work registers 


CONTROL BLCCKS - DLZDLDOO 


* Delete workspace prefix 


e Delete work area. 


DIZI_LOAD/INSERT MODULE -_DLZDCLEO 


The function cf DLZDDLEO is to load HDAM, HIDAF, Simple HISAM, HISAM, 
Simple HSAM, and HSAM data bases (in batch only) and insert segments 
into HIAM, HIDAM, Simple HISAM, and HISAM data bases. 
DLZDDLEO is entered from the DL/I call analyzer (DLZDLA00) on load 
requests for HIDAM, Simple HISAM, HISAM, HSAM, and Simple HSAM segments, 
EDAM dependent segments, and insert requests for Simple HISAM and HISAM 
roots. It is also entered from the retrieve mcdule (DLZDLROO) on load 
requests for HDAM root segments, and insert requests for HDAM, HIDAM, 
and HISAM dependent segments. 
The module performs the following functions: 
A. HDAM/HIDAM load/insert - 
1. Normal segment: 
® Positioning: retrieve positions for inserting and loading of 
HDAM rocts. For all other loading, DLZDDLEC simulates retrieve 
positioning. 


e Space for new segment is acquired using the space management 
module, DLZDHDSO. 


® The segment is moved from the user's I/O area to the buffer, 
e Prefix pointers are updated. 

e Actual write is performed by the tuffer handler using VSAM. 
e Prefix pointers of twins and parents are updated. 


e The data base logger (DLZRDBLO) is called to write the new 
segment and the updated prefixes. 


e If the segment is an index source segment, index maintenance 
(DLZDXM1C0) is called. 


e Exit is to the call analyzer. 
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Concatenated segment: 


If the destination parent already exists, and the insert rule is 
physical or logical: same as normal segnent. 


If the destination parent exists and the insert rule is virtual: 
the logical child segment is inserted as for a normal segment, 
data of destination parent are replaced afterwards. 


If the destination parent does not exist and the rule is not 
physical, the destination parent is inserted as for a normal 
segment; afterwards the logical child is inserted as a normal 
segment. 


B. HISAM and simple HISAM load 


a 


Main storage for a logical record for key saquenced data set 
(KSDS) and for entry sequenced data set (ESDS) is acquired fron 
the buffer handler. 


The root and all dependent segments that fit into one logical 
recerd are written to the KSDS, using the buffer handler. The 
remaining dependent segments are moved to one or more records of 
the ESDS. 


Pointers te those records are inserted. 


C. HISAM and simple HISAM root insert 


eo 


A key equal to or greater than the request is made to the buffer 
handler. Tf the key exists and the delete bit is flagged 
(HISAM), the space is reused; otherwise a II status code is | 
returned. If the key does not exist, main storage is acquired 
from the buffer handler and the new record is built and then 
inserted by VSAM through the buffer handler. 


Old (if deleted) and new records are logged. 


D. HISAM dependent Segment insert 


If the segment fits into the record for which retrieve (DLZDLRO00) 
has positioned, it is inserted ty shifting the segments beyond 
the insert rfoint to the right. If the segment does not fit into 
the record, a new ESDS record is built. The segment and shifted 
data are inserted into the new ‘record. If the shifted data does 
not fit into the record, a second new ESDS record is created. 


Pointers to the new records are created. 


Qld and new records are logged. 


E. HSAM and simple HSAM load 


BLOCKS 


294 


The I/O areas allocated by batch initialization are used to move 
the segments from the user area. PUT locate is executed, 
whenever cne I/O area is filled. 


AND TABLES - [CLZDDLEO 


PST 
DDIR 
DNB 
PCB 
JCB 
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Level table 
SDB 
FOB 
ScD 
SIZE OF MODULE - DLZDDLEC 


This module contains approximately 8500 bytes cf code. 


INTERFACES - CLZDDLEO 


R1 = PST 


This medule calls the following modules: 


DIZRDBLO - Data base legger 
CLZDBHOC - Buffer handler 
DLZDHDSO - Space management 
DLZDXMTO > - Index maintenance 


STATUS CODES - DLZDDLEO 


A 
AO 
IX 
LB 


Module name = CSECT name = DLZDXMTO 

Function: 

The function of this module is to load - insert - delete the index 
pointer segment of a HIDAM data base and to load - insert - delete - 
replace the index pointer seqment for secondary indexes of a HDAM or 
HICAM data base. 


Abbreviations used throughout the module are: 


Iss Index source segment 
XDS Index target segment (indexed segment) 
XNS Index peinter segment (indexing segment) 


The following major functions are performed: 
ALL CALLS 
® Save PST information in XMAINT work area 


LOAD 
INSERT 


® Build index pointer segment in work area 


For primary indexes - take key from user I/0 area. For secondary 
indexes - construct seqment from SRCH, SUBSEQ and DDATA fields. For 
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/CK fields use PCB-key feedback area or read parents of ISS using 
SPBPOSC or PP pointers. Call user suppression routine, if needed. 


e Build temperary blocks SDB, JCB, DSG 

INSET 

® Build call list and SSA 

* Call analyzer 

e Take next index relationship of this ISS 

LOAD 

e Open data base, if necessary, or work data set 


e Call buffer handler to write index record or write work data set for 
secondary index 


e Take next index relationship of this ISS 
UNLD 


e Write FF-key record to all index data bases belonging tc this data 
base 


DLET 

e Call buffer handler to get cld ISS 

® Construct the old index pointer segment 

e For /CK fields take CONCAT key from DLET work area 
* Call user exit routine, to check for suppression 

e Build temporary blocks 

* Leg POINTER_CHANGE and DEL.BYTE CHANGE 

e Call buffer handler to change index 

e Take next index entry 

REPL 


e First part = DLET 
e Secend part = ISRT 


ALI CALLS 


e Restore PST 
® Return to calling module 


Beceives contrcl frem DLZDDLEO (load/insert) and DLZDLDOO 
(delete/rerplace) 


Register Contents 


R1 = PST address 
R14 = Return address 
R15 = Start address 
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ESTWRK1 


PSTPNCTIN 


PSTBYTNM 


LSDB of ISS for ISRT, ASTR, REPL calls 
LSDB cf ROOT for UNLD CALL 
PSDB of ISS for DLFT call 


"AO! Delete 
"AI? Replace 
*A2* Insert 
"A3! Unload 


RBA of index source segment 


Interface to called modules: 


DLZDLACO (analyzer) 
Called for insert, not load mode 


PSTIOPRM pcints to internal call list 
Segment name*X (keyvalue) is used as SSA 


PLZBBHOO (buffer handler) 


PSTMSPUT load HIDAM index 

PSTEYLCT get index target segment again 
PSTSTLEO get index pointer seqment 
PSTPUTKY index of HIDAM data base 
PSTBFALT update index cf HIDAM data base 


REA of Segment 
Pointer to key to be inserted 


DLZDLOCO (open/close) 


Address of DDIR 

PSTOCOPN + PSTOCLD + PSTCCDMB 
ESTCCCEN + PSTOCIMB 

PSTOCCLS + PSTOCDMB 


(logger) 


DBLLGDLT logical delete 

CBLNDXC + DBLCMC XMAINT chain maintenance 
Old segment code and old delete byte 

Old RBA pointer 

Offset te new segment code 

Cffset to new REA pointer 

RBA of record 


DLZDSEHO (work data set module) 


Is called at entry pcint - 12 to open work file. 
Return is to BALR if open not successful, 
to BALR + 4 if open successful. 


1. 

2. 
PSTFNCTN: 
ESTBYTNM: 

or 

3. 
R2: 
PSTFNCTN: 

a. DLZRDBLO 
PSTWRK 1: 
PSTWRK 2: 
ESTOFFST: 
PSTBYTNM: 

Ss 

Exits: 


Back to calling module. 


CCNTECL BLCCKS 


- DLZDXMTO 


e® Index work area - DLZXMTWA 


e SSA for the XMAIRT call to the analyzer. 
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The DL/I retrieve module is responsible for retrieval of all segments, 
independent of physical data base organization. When an application 
program requests the retrieval of a segment, this module (DLZDLROO) 
gains control from the DL/I call analyzer, DLZDLAQ00. The analyzer has 
validity-checked the parameters in the application program's retrieval 
request. The analyzer has also placed this parameter information for 
retrieval in the DI/I control blocks. 


Based upon this informaticn, the retrieve module calls the DL/I buffer 
handler module, DLZDBHO0, which controls physical I/0 operations, to 
read the block containing the desired segment. Once the desired block 
exists in the data base buffer pool, its presence is made known to the 
retrieve module. 


It is the responsibility of the retrieve module to "deblock" segments 
within the block. Once the desired secment is located, the retrieve 
module places the location and length cf the segment in the PST ccntrol 
block associated with the application making the retrieves request and 
returns to the DL/I call analyzer. Once a particular segment within a 
data kase is retrieved for a particular application program, "position" 
is established within the data base for the application program. This 
"position" is subsequently used to move sequentially through the data 
base if the application program issues GN and GNP calls, 


If the block ccntaining the segment to be retrieved already exists in 
the data base buffer pool, the request from the retrieve module tc the 
buffer handler results only in the address of the desired data being 
returned to the retrieve module. No physical I/0 is performed. In the 
case of HISAM, if a retrieve request involves inspection of several 
segments within a record, the retrieve module requests only the first of 
these from the buffer handler and finds the remaining segments itself, 
utilizing position information. Positioning information for each 
application program and each data base is maintained in the DL/I control 
blocks which are an extension of the PCB {that is, JCB, LEVVTAB, and 
LSCDB). 


In addition to servicing all data base retrieval requests, the retrieve 
module performs "positioning™ functions for all segment insertion. In 
this case, the retrieve module receives ccntrol from the DL/I call 
analyzer module on an insert call. Prior to the insertion of a new 
segment occurrence, DL/I must insure that the segment does not already 
exist in the data base. It is the responsibility of the retrieve module 
to retrieve the block where the segment to be inserted may already 
exist. If the segment does not already exist in the data base, the 
block retrieved is normally used for segment insertion. Once the 
desired physical block is retrieved and positicning for segment 
insertion within the block is established, control is passed to the DL/I 
load/insert module, DLZDDLEO. If the data base organization is Simple 
HSAM or HSAM, the retrieve module performs the I/O (Get/Put) rather than 
calling the buffer handler. 


HIDAM root retrieval by key (qualified GU, GN), results in two buffer 
handling requests. The first retrieves the index segment as any HISAM 
root. The second uses the RBA of the HIDAM root in the index segqment to 
get the corresponding root segment. The position of the index segment 
is saved in a special SDB. 


Retrieval of segments addressed by seccndary indexes is performed in the 
same manner, as far as possible, as the retrieval of a HIDAM primary 
root segment. (The SDBS are generated so that the index looks like a 
primary index and the index target segment like a HIDAM primary roct.) 
The most insportant differences are: 
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® The layout of the index pointer segment is user dependent and is 
different from that of a primary index. 


e The sequence field of a secondary index is nct necessarily fart of 
the target segment and may be ina dependent segment. 


Variable length segments are handled by the routine VLRT which provides 
an exit to a user routine to handle any necessary data expansion after 
calling the normal buffer handler interface (SETI). 


Retrieval of logically related segments requires special handling. The 
retrieved segment (the concatenated segment) consists of the logical 
child (that is the concatenated key and the intersection data) and the 
physical cr logical parent (destination parent). Since the SDBs always 
reflect the user's view of the data base, the same program logic is used 
whether the segment to be concatenated to the logical child isa 
physical or a logical parent. The concatenated key of the destination 
parent is constructed using the physical cr the logical parent pointer 
of the logical child and the physical parent pointer of the destination 
parent. For ISRT calls the concatenated key in front of the input data 
is used to positicn on the destination parent. All positions on the 
physical path to the destination parent and on the twin chain of the 
destination parent are maintained. 


COMMAND CODES AFFECTING RETRIEVAL 


D = The segment data is moved when the level table is updated and 
not at return tc the analyzer. 


L - The segment skip routine is employed to skip to the last 
occurrence. 


T - The RBA specified in the SSA is moved to the next position 
pointer location in the appropriate SDB and an unqualified GN 
is performed. 


F - For a GN (GNP) call, the same logic is employed to retrieve 
the first occurrence as for a GU call. 


MODULE LAYOUT - DLZDLROO 


This module consists of 60 subroutines, a main entry routine (DLZDLRO), 
a main exit routine (DLZDLR1), and a general linkage and maintenance 
support routine (DLZKLNKD), each of which is preceded by a description 
in the forms input - processing - output. The subroutines are linked 
using macro DLZRLNK and the following macros (refer to the comments in 
the DLZRLINK source program listing): 


DLZRHDR - First macro of a subroutine; generates DSECTs, EQU, 
and module identification. 

DLIZRTLR - Last macro of a subroutine; generates a LTORG 
statement. 

DLZRCLL - Generates code to transfer control toa 
subroutine using DLZRLINK. 

DIZREXT - Generates code to return control to a calling 


subroutine using DLZRLNK. 


The module is supplied as eight files. The first seven, DLZDLRAO to 
DLZDLRGO, contain the subrcutines and the eighth, DLZDLNKD, contains the 
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linkage and maintenance support routine that is generated using the 
macro DLZRINK. The second file, DLZ2DLRAO, also contains the routines 
DLZDLRO and DLZDLR1. The distribution of the subroutines within the 
CSECTs contained in the files DLZDLRAO to DLZDLRGO is arbitrary and can 
be changed at will, necessitating only that the affected CSECTs be 
reassembled. 


MAINTENANCE SUPPORT - DLZDLROO 


The module DLZRLNKD centains facilities to dynamically dump control 
blocks and I/0 buffer sections. The extent and frequency of the dumping 
is controlled ty DLZRLNK macro parameters or control fields in the PST 
as described in: the DLZRLNK source program listing. 


SIZE OF MODULE - DLZDLROO 

The load module contains approximately 25000 bytes of code. 
INTERFACES ~ DLZDLROO 

This module interfaces with the following modules: 


[TLZDDLEO - Load/vinsert 
DLZDBHOO - Buffer handler 








RO = scD 
R1 = PST 
R2 = PCB 


RO = Work 

R1 = Work 

R2 = PCB 

R3= JCB 

RG = LEVTAB 

R5 = SDB 

R6 = Segment address 

R7 = PST 

R8 = DSG part of JCB 

R9 = Byte or record location of SEGM in data base 
R11= Base register for linkage routine DLZRLNKD 
R12= Base register 

R13= Save area 

R14= Work 

R15= Work 
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Module DLZDHDSO allocates and maintains free space on direct access 
storage devices for storage of DL/I segments in the hierarchical direct 
organizaticns ({HDAM and HIDAM). This space is managed through the use 
of free space elements (FSEs) in each block of each data set of a data 
base and a bit map. The bit map describes blocks that have at least one 
FSE which can contain the largest seqment in the data set. There is one 
bit map per data set consisting of one or more blocks distributed 
equidistant cver the data set, 


Module DLZDHDSO consists of nine CSECTs which perform the following 
functions: 


DLZDHDOO contains the entry point for the combined module. It saves 
registers, initializes the work words in the PST, and 
branches to the appropriate module. 


DLZGGSP0 consists of a 'driver' for all Ssubfunctions that may be 
invoked to find space. It uses one byte of the work space to 
control invecation. This CSECT also controls formatting for 
HDAM when the root anchor pcint is keyond the current end of 
the data set and formatting of new bit map blocks, if 
necessary. 


CLZFRSPO returns to free space the space occupied by a segment being 
deleted. It logs the deleticn of the segment and urdates the 
bit map if required. 


DLZRCHBO searches the block passed to it for an PSE that satisfies the 
current request. If none is found, control returns to the 
calling module. If the request can be satisfied, the return 
is directly to the invoker of DLZDADSO. 


DLZRRHPO searches the DL/I buffer pocl for a block in the range passed 
to it. If one is found, module DLZRCHBO is called to search 
it. If the block is rejected, the search continues to the 
end of the pool, and control is returned to DLZGGSP0. To 
avoid changing the fosition of buffers on the buffer pool use 
chain, online and batch are treated differently. Ina batch 
envircnment, the buffer to be searched is passed to DLZRCHBO 
and may be used without being requested from the buffer 
handler. Ina DL/I online environment, the buffer is passed 
to DLZRCHBO. If the request can be satisfied from it, the 
buffer is then requested frcm DLZDBROC and again passed to 
DLZRCHBO for actual alteration, 


DLZRRHMO searches the bit map for a bit that is a one and is also in 
the specified range. If one is found, its correspending 
block number is returned to DLZGTSPO. If all bits are zero, 
PSTNOSPC is returned to DLZ2GGSP0. The map search functions 
include creation and formatting of new bit map blocks, if 
necessary. To further proximity of space for related 
segments, whenever possible, the search within a given range 
is done from the center to the outer ends of that range in 
both directions at the same time. 


DLZL#CLO calculates search limits for DLZGGSP0. A switch is used to 
determine the appropriate limit - track, control area, delta 
control areas. The limits cf the previous scan are used to 
break the range into two subranges, This prevents the re- 
requesting of blocks that were rejected during earlier scans. 
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DLZMPLCO determines the block number for the bit map block appropriate 
to the block number passed to it. It also determines the 
relative bit rositicn in the bit map block of the block 
number passed to it. 

DLZMMUDO turns the appropriate bit ON or OFF according to the entry 


point involved. The log is also called to reflect the 


change. 
SIZE OF MODULE - DL2DHDSO 


This mcdule contains approximately 48C0 bytes of code. 


INTERFACES - DIZDHDSO 

The following modules are called by DLZDADSO: 
DLZDBHOO - Buffer handler 
DIZRDBLO - Data base logger 


Calling Sequence 


R1 PST address 
PSTDSGA DSG address for appropriate file (all calls) 
PSTFNCTN 
PSTGTS PC 01 Get space 
PSTFRSPC 02 Free space 
PST BTIMPF 03 Turn off hit in bit map 
PSTGTRAP 04 Get space close to root anchor 
point 
PSTRBN RBN of segment to get space close to - PSTGTSPC 
RBN of segment to te deleted - PSTFRSPC 
BBBR ~- PSTGTRAP 
where BBB = relative bicck number, 
R = root anchor point number 
PSTBLKNN Block number whose hit is to be turned cff - 
PSTBIMPF 
R5 DMBESDE Address of PSDB of subject segment 
R14 Return foint 
R15 Entry point - DLZDHISO 
Qn Return 
PSTRTICDE - PSTCALOK Space obtained; RBN is in PSTREN 
- PSTGTSPC, PSTGTRAP 
Space freed - PSTFRSPC 
~ PSTETMPF Space obtained. After insert, call 
DLZDHDSO to adjust bit map. 
R15 - 0 For above return codes, 
- & Error has occurred; check PSTRTCDE 
PSTRTCDE - PSTGTDS The RBN to get close to does not exist 
PSTNOSPC DLZDHDSO could not find space in data 
set - PSTGTSPC, PSTGTRAP 
PSTIOERR See DLZDBHOO 
PSTNPLSP See DLZEBHOC 
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The primary functions of module DLZDBHOO are: 


1. 


To satisfy requests for buffer space for the processing of the data 
blocks of HD data bases. For Simple HISAM and HISAM data bases and 
for the index cf HIDAM data bases, the VSAM buffer management is 
tsed. 


To issue I/O requests to VSAM whenever data must be read or written. 
Thus, the buffer handler provides an interface between the DL/I 
action modules and VSAM data sets, 


Whenever possible, to satisfy requests for data base segments and or 
records from data currently available in its buffer pool without 
issuing an I/O request. Fer this purpose, data is retained in the 
focl as long as possible. Various features such as use chains and 
alteration flags are employed so that a centralized buffer 
management is facilitated for concurrent use by all application 
programs. 


The buffer handler satisfies the following requests as indicated by 
PSTFNCIN: 


1% 


For processing HDAM, HIDAM, or HISAM ESDS: 


Sy sbol Hex 
Function § Function Descri 
ESTBYLCT 02 If the request is issued for an HDAM or 

HIDAM data base, the buffer handler 
retrieves the control interval whose 
relative byte number is stored in 
PSTYBTNM. The relative byte number in 
PSTBYTNM is first converted to a VSAM 
control interval number and an offset 
within the control interval. 


If this contreol interval is not in the 
buffer peol, buffer space is obtained in 
the buffer pool, the buffer which will be 
used is written, and the control interval 
is read into this buffer by a VSAM get 
call. 


Tf the requested control interval is 
already in the buffer pool, no read is 
done and the address of the buffer 
containing this control interval is 
passed kack to the caller. 


If the request is issued for a HISAM ESDS 
data tase, the buffer handler only issues 
the proper VSAM call for retrieving the 
record identified by the RBA which has 
been passed to the buffer handler in 
PSTBYTNS, 


PSTBKLCT 01 The same aS PSTBYLCT for an HDAM or HIDAM 
data base except that a YSAM control 
interval number is passed tc the buffer 
handler in ESTBLKNM. 
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PSTBYALT 06 A locate relative byte number (refer to 
PSTBYLCT) is done first and then the 
buffer which contains the control 
interval is marked as altered by this 
specific user. 


 PSTBFALT 05 If the request has been issued for an 
HDAM or HIDAM data base, the buffer whose 
prefix address is stored in PSTBUFFA is 
marked altered. 


If, however, the request applies toa 
HISAM ESDS, the proper VSAM call is 
issued to write the record immediately. 


PSTGBSPC 03 A buffer with the length specified in 
PSTBYTNM (possibly rounded to the next 
multiple of 512 bytes) is provided to the 
caller. 


PSTFBSPC 04 A buffer identified by a DME number, ACB 
number, and control interval nupber in 
PSTDMBNM, PSTACBNM, and PSTBLKNM is 
freed, that is, it is marked empty and 
put on the bottom of the use chain. 


PST PGUSR 07 All the buffers which have been modified 
by a specific user are written. All 
nonreusatle buffers held by this user are 
marked empty and put to the bottom of the 
use chain. The bit representing this 
user is turned off in the user mask of 
all permanent write error blocks. 


PSTBFMPT 04 All buffers of one data base or certain 
buffers of a data base are marked empty 
and put on the bottom of the use chain. 

PSTWRITE 08 A logical record is added to a HISAM ESDS. 

2. For processing HIDAM index, Simple HISAM or HISAM KSDS: 


(a) Accessed by VSAM RBA 


Symbol Hex 
Function Function Description 
PSTBYLCT 2 Retrieve the VSAM KSDS record by the RBA 
which is in PSTRBYTNM, 
PSTBFALT 05 Write the VSAM KSDS record by the RBA 
which is in PSTBYTNM, 
PSTERASE OA Delete the VSAM KSDS record identified by 


the RBA which is in PSTBYTNM. 


(fb) Accessed by key 


Symbol Hex 
Function Function Description 
PSTSTLEQ 09 Retrieve the VSAM KSDS record whose key 
is equal to or greater than the key whose 
address is stored in PSTBYTNM. 
PSTGETN X 0B Retrieve the next sequential VSAM KSDS 


record. 
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PSTST LBG oc Retrieve the first VSAM KSDS record ina 
data base. 


PSTPUTK Y 0D Insert a record by key directly into a 


VSAM KSDS. 
PSTMSPUT OE Insert a record which is in ascending key 


order into a VSAM KSDS. 


The tuffers which are used for satisfying these requests are provided by 
VSAM buffer management. The buffer handler provides VSAM control blocks 
(ACB, EXLST, and RPL) to VSAM data management when issuing the required 
VSAM action macro, 


The module DLZDBHO0N consists of three CSECTs: 


DLZEBHOO Contains the code for the functions 
® PSTBYLCT 
e PSTBKLCT 
e PSTBYALT 
2 PSTBFALT 
e® PSTGBSPC 
e Maintenance of write chain and use chain 
DIZLDBHO2 Contains the code for the functions 
«® PSTSTLEO PSTMSPENT 
e PpSTGETNX PSTERASE 
« PSTSTLBG PSTWRITE 
e PSTPUTKY 


Additionally, this CSECTI conatins the code required for 
preparing and issuing of VSAM calls and for processing 
feedback infcrmation by VSAM. 


DIZDBHO3 Contains code for the functions 
e® PSTFBSPC 
e PSTBFMPT 


e PSTPGUSR 


In addition, this CSECT contains the suktroutines for providing an 
enqueue/dequeue function. 


WRITE CHAIN 


The new control intervals of a HIDAM or HDAM data base are chained 
together on a write chain in ascending order of their control interval 
numbers. If one of the buffers on the write chain has to be written, 
all buffers on the chain are written. 


There is a write chain for every data base. It is maintained by storing 
the prefix numbers of the prefixes of the next higher and the next lower 
buffers in bytes 18 and 19 of the prefix. A bit switch in byte 7 of the 
prefix (X'80"') is on if a buffer is on a write chain. 


USE CHAIN 


All buffers are chained together in the order of their usage. This use 
chain is physically separated from the buffer prefixes and consists of 
one-btyte elements containing relative numbers of prefixes. The order of 
the buffers on the use chain is indicated ty the physical order of these 
use chain elements. 
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There is cne use chain area per subpool. Each use chain area has a 
waximum of 32 entries. The maintenance of the use chain involves 
putting a use chain element on the bottom or on the top of the use chain 
as follows. The contents of the use chain element which is to be moved 
are saved. Then all use chain elements located behind the element to be 
put cn top, or located before the element to be put on the bottom, are 
moved to the address which is cne byte lower than the load address (or 
one byte higher if an element is placed at the bottom). The saved 
element is then stored at the top or the bottom of the chain. 


ENQ/DEQ SUBROUTINES 


Since transactions in an online environment may be processed in multi- 
thread mode, the buffer handler may have to synchronize and/or delay 
requests for buffers and/or buffer space. This is accomplished in two 
subroutines which perform ENOQ/DEQ type functions and an interlock check. 
The following fields are used by the ENQ/DEQO routine: 


Functicn Label Contrel_block 
ENQO/DEOQ existing control BFFRPST Buffer prefix 
interval (CI) ID PPSTE XCI PST prefix 

ENC/DEQ pending CI ID BFFRNPST Buffer prefix 
PPSTP ECT PST prefix 
PPSTCHAT PST prefix 

ENC/DEQ subpool SUBNOQFI Subpool information table 

SUBNOLA Subpool information table 
PPSTSUPO PST prefix 

ENQ/DEQ matrix BFPLPSIL Buffer pool prefix 
BFPLFSIF Buffer pool prefix 
BFPLPSIL Buffer pool prefix 
PPSTMATR PST prefix 


For interlock detection, the ENQ/DEQ routines use the contents of 
the following buffer pool prefix fields: 


BFPLINM@SA interlock detection matrix 
BFPLINW1 work areas 
BEPLINW2 


The ENC/DEQ routines use the following fields in the buffer pool 
prefix as work space: 


BFPLNOW 1 
BFPLNOW2 


Normally, the resources to be enqueued are the existing contents of a 
tuffer (existing CI ID) or planned contents of a buffer (pending CI ID). 
Under certain circumstances, other resources may be enqueued. 

Enqueuing of a resource consists of the following steps. 


If the resource is available: 


1. Store the PST ID into a field of the resource reserved for this 
purpose (that is, BFFRPST, BFFRNPST, SUBNOF1, BFLPSIF). 
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2. Store the resource ID (for example, the buffer number) into a field 
in the PST reserved for this purpose (that is, PPSTEXCI, PPSTPECI, 
PPSTSUPO, PPSTMATR). 


3. Indicate successful ENO with a return code of 4&4 and return to 
caller. 


If the resource is not available: 


1. Find a position for the current PST in the interlock detection 
watrix. 


2. Indicate by an appropriate entry that this PST is waiting and for 
which task. 


3. Check whether this waiting would cause an interlock. 
4%. If no interlock possible: 


a. Chain with appropriate chain fields the current PST behind the 
last PST already waiting for this resource. 


be. Return with a return code of 8 to indicate that a wait condition 
exists. 


5. If an interlock would occur if the current PST were to attempt to 
wait cn this resource: 


a. Remove the entry made in 2 above from the interlock detection 
matrix. 


bk. Indicate with a return code of 12 that an interlock would 
occur and return. 


Dequeuing of a resource consists of the following steps. 
1. Remove the resource ID from the appropriate field in the current PST. 
2. Remove the EST ID from the appropriate field in the resource, 


3. If the PST chain fields indicate that no other PST was waiting on 
this resource, return to caller. 


4. If another EST was waiting on this resource: 


a. Move the waiting PST ID into the resource and remove the 
corresponding wait indication from the interlock detection 
matrix. 


b. Post the waiting PSTs and unchain the current PST. 


c. If, because of 4.a, certain rows and columns in the interlock 
detection matrix are free now, make these available for use by 
other PSTs and post those (see description of action taken on 
pseudo-interlock conditions). 


Gd. Return to caller. 
Por performance reasons, resources contain, in addition to the owning 
PST's ID, the ID of the last PST in the wait chain for this resource. 
These IDs are also maintained by the ENQ/DEQ routines. 
The interlock detection matrix consists of a pair of eight-bit matrices. 


The first bit matrix indicates for up to eight PSTs which PST is waiting 
on which other PST. Rows and columns are dynamically allocated to PSTs 


Licensed Material - Property of IBM 307 


as required. A one-bit in the appropriate row and column indicates a 
wait condition. The second bit matrix is the transpose of the first. 

An imminent interlock is detected by some simple legical operations 
executed against those two matrices. In the event that eight PSTs are. 
occupying this matrix when further PSTs request service involving a wait 
condition, a cede of 16, indicating pseudo-interlock, is returned and no 
enqueuing takes place. 


The following types of ENQ requests may cccur: 


ENO existing CI ID When a task either wants to write a buffer or wants 
to get posted when reading into or writing a buffer 
is finished. 


ENQ pending CI ID When a task wants to reuse a buffer in the buffer 
pool or when a task wants to get posted when the 
creation of a pending (i.e., new) CI is finished. 


ENQ subpool When there is currently no buffer prefix in a subpool 
allowing a pending CI ID. 


ENQ matrix When a task wants to ENQ on a resource currently held 
by another task and no free row/colusn in the 
interlock detection matrix is available. 


The following action is taken by the main routine of the buffer handler 
on a return code (RC) indicating nonsuccessful ENQ. 


Condition RC issue 
Wait 8 Issue IWAIT macro. 


Interlock 12 Dequeue all resources held by this PST and retry 
the current DL/I request. 


Pseudo 16 | Dequeue all resources held by this PST and 
enqueue on interlock detection matrix. This 
causes a wait condition. Issue IWAIT. Upon 
post, dequeue matrix and retry current DL/I 
request. 


CONTROL BLOCKS - DLZDBHOO 


Pst 

PST prefix 

DDIR 

DMB 

DSG 

ScD 

Buffer pocl prefix 
Buffer prefix 


SIZE OF MODULE - DLZDBHOO 


This module contains approximately 7500 bytes of code. 


INTERFACES - DLZDBHOO 


DLZDBHOO uses the PST for communication from and to the calling modules 
and for work space. The DSG is used to obtain the DMB number and ACB 
number of the data set which applies during a request. The address of 
the tuffer pool prefix is obtained from the SCD. The address of the 
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tuffer prefix area is obtained from the buffer pool prefix. VSAM is 
invoked for all I/c. 


In order te make sure that writing of log information is always ahead of 
updating a data base, the buffer handler may branch to a specific entry 
point of DLZRDBLO or DLZRDBL1. (Refer to the description in the 
paragraph about DLZRDBLO and LrLZRDPL1.) 


DLZDEHOO issues the RELPAG macro for tuffers that are marked empty. 


BUFFER HANDLER FUNCTIONS AND REQUIRED FIELDS 

The following chart illustrates which fields must be supplied to the 
buffer handler (input) for each specific function and which fields are 
filled in by the buffer handler (output) on completion of the function. 


1. Function used to access a HIDAM or EDAM data base 


Function 

























PSTBYLCT PSTBYTNM Relative byte PSTDATA Core 
number of desired address of 
segment desired 





segment 










Offset 
segment 
fron 
beginning 
of control 
interval 


PSTOFFO1 of 


















RBA of desired 
segment 





PSTBKLCT 





Core address 
of desired 
segment 


PSTBLKNM PSTDATA 













PSTBYALT see PSTBYLCT See PSTBYLCT 









Address of buffer 
prefix which is to 
be marked altered 





PSTBFALT 





PSTBUFFA 
















Address of 
provided 
buffer 


PSTDATA 






Number of desired 
bytes 





PSTGBSPC PSTBYTNM 

















PSTFBSPC/PSTBFMPT | PSTDMBNM 
PSTACBNM 


PST BLKNM 


DMB 
ACB 
Control interval RBA 









All or part of 
buffer identifier 
may be passed. 

















PSTDMBNM 
PSTACBNM 
PSTBLKNM 
PPSTID 


DMB 
ACB 
Control interval RBA 
User identifier 












Any or all of these 
may be passed. 
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2. Functions used to access a HISAM ESDS 


Function 


PSTBYLCT PSTBYTNM RBA of the logical PSTDATA Address of the 
record to be read record within 
the buffer 


PSTBFALT PSTBYTNM RBA of the logical 
record to be written 


PSTWRITE PSTDATA Address of work area PSTBLKNM RBA of the record 
containing the logical added to the ESDS 
record as calculated by 

VSAM 
PSTBUFFA | Prefix address 





3. Functions used to access a KSDS by key (Simple HISAM, HISAM or HIDAM 
index) 


Function 


PSTSTLEQ PSTBYTNM Address of the field PSTBYTNH RBA of the logical 
which contains search record retrieved 
argument PSTDATA Core address of 

record 


PSTSTLBG PSTBYTNM RBA of the logical 
record retrieved 
PSTDATA Core address of 
record 


PSTGETNX PSTBYTNM RBA of the logical 
record retrieved 
PSTDATA Core address of 
record 


PSTPUTKY PSTDATA Address of work area 
containing the logical 
record 


PETBUFFA | Prefix address 


PSTMSPUT PSTDATA Address of work area 
containing the logical 
record 


PSTBUFFA Prefix address 
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&. Functions used to access a KSDS by RBA (HISAM or HIDAM index) 


Function 
RO - SCD address 


PSTBYTNM RBA of the logical Address of the 
R1 - PST address 


record to be retrieved record within the 
R14 - Return address to caller ° 


buffer 
R15 - Address of DLZDBHOO 
















PSTBYLCT 















PSTBFALT 





PSTBYTNM 





RBA of the logical 
record to be written 


PSTDATA 





Address of the record 
Within the buffer 





PSTERASE PSTBYTNM 





PBA of the logical 
record to be erased 


Fields Required (Independent of Function) 
PSTFNCIN Hexadecimal code for desired function 
PSTDSGA Address of associated DSG needed for: PSTBYLCT, 
PSTBKLCT, PSTBYALT 
PSTBLKNM Identification of desired block needed for: 
PSTBKLCT, PSTBFALT, PSTFBSPC 
PSTDMBNM Number of associated DMB needed for: PSTBKLCT, 
PSTBFALT, PSTFBSPC, PSTGBSPC 
PSTACBNM Number of associated ACB needed for: PSTBKLCT, 
PSTBFALT, PSTFBSPC, PSTGBSPC 
PSTBYTNM PSTBYLCT/PSTBYALT - relative byte address of desired 
segment - relative record number 
of HISAM ESDS (high-order byte = 
X' 80") 
PSTGBSPC - fullword size of requested space 
PSTBUFFA Address of buffer prefix for block to be marked 
‘altered’ - PSTBFALT 
“DSGDMBNO DMB number of the referenced data base 
DSGIPCBNO ACB number of the referenced data set 
On_ Return 
R15 0 Request satisfied 
4 Warning or error condition 


Licensed Material - Property of IBM 311 


Fields Returned (Independent of Function) 
PSTOFPFST Offset from PSTDATA back to first byte of block 


PSTDMBNM Address of associated DMB number 


PSTACBNM Address of associated ACB number 
PSTDATA Address of first byte of requested segment, record, 
or space 


PSTBUFFA Address of buffer prefix 
ESTNUMRO Number of reads done during this call 


PSTNUM WT Number of writes done during this call 


PSTCLRWT 
Bit 0 This caller waited during request 
1-8 Reserved 
PSTRTCDE 
Return 
Code Hex 
Function Function Description 
PSTCLOK 00 No error occurred during this request. 
PSTGTDS 04 Record, CI, or segment requested is more 


than one CI beyond the end of the data 
set - returned on PSTBKLCT, PSTBYLCT, 
PSTBYALT 


PSTIOERR 08 Requested CI, record, or segment could 
not be read successfully on a PSTBKLCT, 
PSTBYLCT, or PSTBYALT call or could not 
be written successfully on a PSTPUTKY, 
PSTMSPUT, PSTWRITE, or PSTBFALT call. 


PSTNOSPC oc An out of space condition occurred on the 
data set DASD while processing this 
request. 

PST EDCAL 10 The byte at PSTPNCTN is not a valid 


function or the DMB/ACB/BLKID in the PST 
do not match corresponding fields pointed 
to in PSTBUFFA for a PSTBFALT call. 


PSTNOTFD 14 A PSTSTLEQ call has been issued for a 
record whose key is higher than the 
highest key in the data set. 


PSTNWBLK 18 The requested CI, record, or segment will 
go in the CI, one greater than the 
current end of the data set. Space has 
been allocated in the pool to hold the 
new CI. The address is at FPSTDATA. 


PSTNPLSP 1c The pool dees not contain enough space to 
satisfy the request. 


PSTWROSI 20 A request (GBSPC) was issued for a buffer 


size which exceeds the highest buffer 
size handled by any subpool. 
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PSTENDDA 24 The end of data set has been reached on a 
PSTGETNX call. 


PSTBYEND 28 A request has keen issued with a key or 
RBA higher than the highest key or RBA in 
the data set. 


PSTEOD 2c End of data set has been reached on a 
request ky DLZDLOCO, 


DLZRDBLO_AND_DLZRDBIA 


The data base logger module logs the modifications made to a data hase. 
These data base leg records are written to the system log. This module 
is invoked by several of the DL/I modules associated with data base 
modifications. 


The logging of data base modifications, additions, and deleticns is done 
cn a physical kasis to facilitate a quick recovery procedure. Only 
calls that actually cause a change to be made to a data base are logged. 
Two sets of information are logged for each modification - a before set 
and an after set. 


The before information is that required by the data base hackout 
utility. It is used to back cut a partially completed update series and 
to restore a data hase to some prior point in time, 


The after information is that required by the data base recovery 
routines to restore the data base from a previous backup copy. 


There are five basic types of data base log records. 


1. POINTER maintenance record | 
When a segment is deleted or inserted and it causes a charge in any 
of the pointers in other segments, each pointer is logged separately 
as a POINTER maintenance record. A POINTER maintenance record is 
indicated ky bits 1, 2, and 3 of the DLOGFLG2 field of the log 
record being set to zero. 


2. PHYSICAL INSERT record 
When a segment is physically added to the data hase, a PHYSICAL 
INSERT record is written. This type of record is indicated by a one 
in bit 1 of the DLOGFLG2 field. 


=. PHYSICAL DELETE record 
When a segment is physically removed from the data base, a PHYSICAL 
CELETE recerd is written. This type of record is indicated by a one 
in bit 2 of the DLOGFLG2 field. 


4. PHYSICAL REPLACE record 
When a segment in a data base is medified, a PHYSICAL REPLACE record 
is written. This type of record is indicated by a one in bit 3 of 
the DLOGFLG2 field. 


5. LOGICAL DELETE record 
When a DLET call is issued but the segment is not physically removed 
from the data base, a LOGICAL DELETE record is written. Only the 
segment code and delete bytes are logged. A logical delete record 
is indicated by bits 1 and 2 of the DLCGFLG2 field being set to a 
one. 
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Record types 1, 2, 3, and 5 contain the before and after informaticn in 
the same record and have a log code of X'50'. Type 4 requires two 
records. The after record has a log code of X'50'; the before record 
has a leg code of X'51'. Additionally, if a physical insert reuses 
pace of a deleted record, log records x*50" and X'51' are written. 


If the change is an insert or a delete, the before and after are part of 
the same record. On an insert, the new segment, including the prefix, 
is logged as the change data. On a delete, the 014 segment and prefix 
are the change data. In HD, both insert and delete cause changes to the 
free space elements (FSEs) within a block. The new FSEs and their 
offsets are logged following the change data and a count of the changes 
is placed in bits 4 through 7 of the DLOGFLG1 field. 


The information needed to create the lcg record is retrieved from the 
various DL/I blocks. A small amount of additional infcrmation is passed 
as parameters from the DL/I action modules. 

The data base log tape format is undefined records (ONDEF). The block 
size is 1024 bytes. Maximum record length is 512 bytes. If a segment 
cannot be logged into cne record, it is internally spanned over two or 
more log records. The first record is logqed with a data length 
adjusted tc match the data it contains. The offset for the second 
record is incremented by the length of the first, and the second is 


written as a separate segment. The adjusting of data length and offset 
continues until the entire segment is written, 


CONTROL BLOCKS - DLZRDBLO AND DLZRDBL1 


e Data base leg record 
® Application program termination record 
e Applicaticn program scheduling record 


e File open record. 


SIZE OF MODULE - DLZRDBLO 


This module contains approximately 3300 bytes of code. 


INTERFACES - DIZRDELO 


R1 = PST address 

R13 - Save area 

R14 - Return address 

R15 - Entry pceint address. 


High-order byte of PSTWRK1 field in PST: 


Bit Value Definition 
0 1 Index maintenance call 
1-3 000 Chain maintenance call 
001 Physical replace 
010 Physical delete 
100 Physical insert 
110 Logical delete 
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4111 Reserved. 

1 Last change for this user call 

0 One FSE (physical delete or insert) 
1 Two FSEs 

1 Old copy of physical replace 

1 New block log call 

1-1 No data - end of user call 


Jon wn & 


466 
PSTWRK1 - Physical SDB address {except new block call) 
- Data length (lew halfword) if new block call 


PSTWRK2, PSTWRK3, PSTWRKY - O1d data on pointer maintenance and 
logical delete calls. FSE data on physical insert and 
delete calls. 


Before a data base block is updated (that is, before the buffer handler 
issues the put for an updated block), the associated log information is 
first written to the log tape in the following manner. 


After issuing a put to write a log block to the log tape, the log module 
updates the count cf written log blocks in the field SCDLOCOU. 


When the log module processes a log call, in which a data base buffer is 
involved, the current count of written log books is stored from 

SCDLOCOU into byte 7 of the buffer prefix in the case of HD, or into the 
field DMBACBLC in the ACB extension in the case of HISAM and HIDAM index. 


Before issuing any put for updating a data base block, the buffer 
handler ccmpares the value stored in the ktuffer prefix (HD) or in the 
ACB extension (HISAM, HIDAM INDEX) with the current value in SCDLOCOU. 
If the two values are unequal, the log information associated with the 
data tase update has already been written out. If the two values, 
however, are equal, the buffer handler branches to entry point WRIAHEAD 
Of DLZRIBLO to force the current contents of the log I/O area to be 
written out immediately. If, however, asynchronous logging was 
requested by the user, the count comparison is bypassed, that is, no 
“write ahead" logging takes place. 


LOGGING _IN_THE ONLINE SYSTEM 


eed — a San am Seep EES ED em 


In the online system the put for the leg klocks is issued in a separate, 
asynchronous subtask, which is attached at system initialization time. 
This subtask is a separate CSECT within the log module DLZRDBLO. 


The purpose for this is to avoid losing tasks when the end of volume 
condition is encountered on the log tare. 


The communication between the asynchronous log subtask, the logger, and 
the DL/I cnline nucleus (DLZODP00) is achieved by using three ECBs as 
follows: 


1. System ECB (SCDESECB, in SCD extension), which is used for the 
communication between the log module (DLZRERLO) and DLZODPOO. 


2. Log I/0 ECB (SCDELECB, in the SCD extension), which is used for the 
communication between the log module and the asynchronous log 
subtask. 


3. Private ECB (fullword in the log suktask CSECT), which is used for 
the communication between the asynchrenous log subtask and the log 
module during the end of the I/O operation that was initiated by the 
log suktask. 
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cnline envircnment. 


in an 


s 


Figure 4.1 shows the events which take place when a PUT for a log block 
tecomes necessary 









doa weishs Kes GDZ Wershs 3s0q ‘OL 





93 0/1 6074 
UO LIEAA 


G93 0/| 607 1sodun ‘g 


GO “MA WSO “LZ RES) Ecsrsssesssstocecescoiescesecesececesocenenanenatapatetataegtatad 


g93 ‘Md = | NT 


993 0/1507 GEES EEE ; 


goa waisAg KC 






Ld enss| °9 


ANd aedaig SG 















893 “Aldd UO LIVMI 'Y 





993 O/| 607 1s0qg “€ 


G93 ‘Aig soduy ‘7 








g93 0/1 607 uo G93 wWarshg 4907 “L 


Bunnie 





(awenN 193S9) Y¥MDOTINO 
yseiqns Go7 snouciysuAsy 


07190H210 
4966077 








Online Log Block Put Operation 


Figure 4.1, 


Licensed Material - Property of IBM 


316 


The relationship between all modules involved in the asynchronous log 
writing is as follows: 


ee OS Aa RE A RON CAE AN I AND A EY Ss TE AA OE NIE I IR A ARO I SAM PO ETP A IRE RES RAY 
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] EXCPAD Ecut 
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LOGGING BY USING CICS JOURNALING (MODULE CLZRDEL1) 


Besides writing log informaticn in the standard way, logging in the 
online system can be done by using the journaling feature of CICS. That 
means the DL/I log information as described in the chapter about module 
DIZREBLO will go on the same tape as any CICS journal information. 


This is possible because CICS uses different journal record IDs than 
DL/I (DL/I uses X'C7', X'08t, X'2F*, X*50%, KX*51%). Any DL/I utility 
which uses a journal tape will check tke record ID and precess only 
those records, which have record IDs used by DL/I. 


The general structure of DL/I log records, CIcS journal records and CICS 
journal blecks is as follows: 
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1. FDLZI_LOG RECORD 


LL bb eat CONTINUED ACCORDING TO DSECT 
0 2 4 


2. CICS JOURNAL RECORD 


eel OseR JOURNALLED 














LL bb CICS/VS LABEL RECORD ANY COMBINATION 
OF CICS/VS JOURNAL RECORDS AND 
DL/I LOG RECORDS 


If the user requests logging by CICS journaling (UPST bits 6 and 7 = 
DLZCLIOO loads module DLZRDBL1 instead of the standard log module 
TLZREBLO. This mcdule provides the follewing services: 





e Build and write open records for each data base that has been opened. 


DFHJC TYPE=WRITE is issued to CICS. 


* Build and write log records on request by the action modules. DFHJC 


TYPE=WRITF is issued. 


e Write log records built by the sched/term. routine. DFHJC TYPE=WRITE 


is issued. 


e Initiate a physical put to the journal tape on request cf the buffer 


handler. DFHJC TYPE=WAIT is issued. 


Before a journal call is issued to CICS, DLZRDBL1 checks if the task 


which is going to write a journal record already owns a JCA. If it doas 


not, a GET JCA call is issued prior to issuing the DFHJC call. 


Since DLZRIBI1 is not reentrant, no task can be allowed to enter this 
sodule while leg I/0 is being processed. 


DLZRDBI1 unposts an ECB (SCDESECB) prior to any physical I/0. [In 


various parts cf DIZODP this ECR is checked, and, if it is locked, a 
CICS wait is issued before control is passed to any action module. 
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SIZE OF MODULE DLZRDBL1 


This module contains approximately 2500 bytes. 


When log information is written by using CICS journaling, the writing of 
log information is always ahead of updating the associated data base 

blocks. The scheme used is the same as with standard logging, the only 
difference being that the value for the number of written journal blocks 


(CICS ECN) is not manipulated by the lcg module but is taken out of the 
Jct. 
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Before attempting to use the informaticn in this chapter you should be 
familiar with the Customer Information Control System/Virtual Storage 
(CICS/VS). References to the prerequisite publications are contained in 
the preface to this manual. 


The cnline DL/I processor modules DLZOLIOO and DLZODP00 provide services 
in a CICS/VS-DL/I environment as follows: 


a. DIL/I system initialization 

b. DL/I user task scheduling 

c. Processing DL/I calls {online pregram request handler) 
a. DL/I user task completion 

e. DL/I normal system termination 

f. DL/I abnormal system termination 

g. DL/I online message writer 

he DL/I-VSAM-CICS synchronization via VSAM "EXCP* Exit. 


In order to precess DL/I applications in an on-line environment, a DL/I 
cnline nucleus must first be generated. The DL/I online nucleus 
generaticn procedure is described in DL7t DOS/VS Utilities and Guide for 
the System Programmer. The result of the procedure “described in the 


publication is a DL/I online nucelus CSECT. 


The generated nucleus, which is link-edited into a DOS/VS core image 
library, consists cf a system contents directory (SCD), a table of 
partition specifications table prefixes (PPST), a PSB directory entry 
for each PSB specified, and an application control table (ACT). 


The application control table (ACT) is used by DL/I online at CICS 
initialization to verify and load all PSBs and DMBs that can be 
referenced online. The ACT is used during scheduling to determine 
whether an online transaction is to use DLyvI. It is also used by DL/I 
default scheduling to acquire a PSB to use with a DL/I application 
program if none was explicitly specified. 


The ACT is prcduced from parameters specified in the following DLZACT 
macre instructions: 


DLZACT TYPE=INITIAL 
DLZACT TYPE=CONFIG 
DLZACT TYPE= PROGRAM 
DLZACT TYPE=EUFFER 
DLZACT TYPE=FINAL 


Each ACT program entry is generated frcm the DLZACT TYPE=PROGRAM 
Statement. These statements define to DL/I which application programs 
can use DL/I online. They also define which PSB names can be used by 
each of the applicaticn programs. The ACT is located +4 from the 
beginning of the DL/I nucleus (DLZNUCxx). There is one ACT program for 
each DLZACT TYPE=PROGRAM statement used to generate the online nucleus. 
The application control table (ACT) has the following format. 
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Generated from: 
DLZACT TYPE=PROGRAM 


Generated from: 
DLZACT TYPE=BUFFER 


4 8 2 bytes 
A. Buffer pool information address or 0 


B. Storage layout contro! table name or O 
C. Number of HD DBDs in HDBFR operand 


Program entry ‘1’ 


ee eee (ae oe 
: 8 1! 2 2 2 bytes 


D. ACTNM ACT program entry name 


E. ACTIND — Entry indicator byte: 


X‘80' Program is a DL/1 program 
X'40’ Program name not in CICS PPT 
X‘20’ ABEND option bit 

X’02' Program is deferred-scheduled 


F. ACTPCNT Count of PDIR (PSB) pointers for this program 


G. ACTPPTR PDIR pointer(s). ACTPCNT indicates how many pointers 
are included here before the start of the next ACT entry. 


Program entry ‘n’ 
A maximum of 4095 DLZACT TYPE=PROGRAM statements and a 


maximum of 4095 unique entries (an entry consisting of program name 
and one PSBNAME) may occur in one ACT generation. 


4 bytes 


H. Delimiter (FF FF FF FF) indicating end of program entries 


) HDBFR entry (subpool ‘1’) 
2 8 8 2 bytes 
1. Length of entry 
J. DBD name 


K. Number of buffers 
HDBFR entry (subpool ‘n’) 


HSBFR entry (DBD #1) 
oy eee eee ee ee 
2 8 2 2 2 bytes 


FF 00 
. DBD name 
. Number of index buffers 
. Number of KSDS buffers 
Number of ESDS buffers 


HSBFR entry (DBD #n) 


E | bytes 


Q. Delimiter (FF FF FF FF) 


2 OS 
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DL/I initializaticn is performed during CICS/VS initialization just 
after loading the CICS/VS nucleus. The DL/I online nucleus module has 
been loaded by CICS/VS in the same manner as a CICS/VS nucleus module, 
and its address is placed in the CICS/VS CSA optional features list. 


NUCLEUS AND TABLE INITIALIZATICN 


DL/I verifies the presence of the online nucleus by checking the CICS/VS 
cpticnal features list DL/I entry for a non-zero value. Once verified, 
the program request handler entry point is moved. to the DOS/VS COMREG 
using the MVCCM macro. Next, the application control table (ACT) is 
located and an indicator is set in each corresponding PPT entry for all 
application programs which will use DL/I. Each PSB name in the ACT is 
eight characters in length. 


Next the PSB segment intent list is built. This is accomplished by 
loading each PSB defined in the ACT in ascending address space in the 
low end of the partition and moving the intent list, which is appended 
to the front of the PSB, to an entry in the PSB segment intent list 
table. The length of the PSB rlus the length of the index work area, if 
required, are used to calculate how much storage to reserve. The 
segment intent list is overlaid during this process because its 
information is redundant. The PSB directory entry for each PSB is 
initialized with the address of the intent list, the PSB's storage 
address, and the amount of storage required. 


The DMB directcry is constructed. One DMB directory entry is created 
for each unique data base (DMB) defined in the PSB intent list entries. 
DMB names are eight characters in length and consist of the DBD 
generation name extend2d to seven characters by at-signs (@) if 
necessary. The eighth character is D. At this time, a validity check 
is performed tc ensure that all required DMBs, defined by the PSB intent 
list, have been defined in the CICS/VS file control table (FCT). If any 
are missing, a message is written on the system console and the operator 
is given the cpticn to continue or cancel. If initialization is to 
continue, PSBs which require the omitted DMB{s) are flagged to indicate 
this conditicn. Application programs which use these PSBs are not 
scheduled. 


Initialization continues with the loading of all DMBs specified in the 
DMB directory. As each DMB is loadad, the corresponding entry in the 
DMB directory is initialized. A test is then made for HDAM and the 
defined randcmizing routine is loaded. As the DMBs are loaded, they are 
initialized. After all DMBs have been loaded and initialized, the size 
of the buffer focl is determined. The size of the pool is calculated 
based on two variables. The first is a user-supplied parameter which 
defines the number of subrfools. The second variable is the control 
interval size of each VSAM data set. 


After the pocl size is determined, the required address space is 
reserved. Then the buffer pool prefix in the cnline nucleus is 
initialized. Next the subrpecl prefixes are created and initialized. 
There are 32 prefixes for each subpool. 


LOAD ACTICN MODULES 
Upon completicn cf the acquisition and initialization of the buffer pool 


and prefixes, the DL/I action modules are loaded. As the modules are 
loaded, their corresponding entry points are moved to the SCD. The 
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modules are loaded in the following standard sequence if not otherwise 
specified by a storage layout control table: 


DLZDBHO0 - Buffer handler 
DLZDLROO - Retrieve 

DLZDLAQO - Call analyzer 
DLZRDBLO - Data base logger 
DLZDLDOO - Delete/Replace 
DLZDDLEO - Load/tnsert 
DLZDHDSO ~ Space management 
DLZDXM TO - Index maintenance 
DLZELOCO - Open/Close 


These modules are discussed in detail in Chapter 3 of this manual. 


INITIALIZE PSBS 


Upon completion of the loading of the action modules, initializaticn 
moves the specified PSBs using information stored in the PSB directory 
entries. After each PSB is moved, it is initialized and its 
corresponding PSB directory entry filled in. 


ATTACH LCGGER 


If data base logging has been specified by the user, the logger I/0 
module is initialized and attached. If the log module fails to attach, 
the cata base log is closed and no logging takes place. 


OPEN DATA BASES 


The final step of initialization is the opening of the data bases. The 
IMB directory is scanned for DMB's that failed during initialization and 
the open initial attribute is reset for any found. Next the data bases 
are opened via an ‘open all‘ call to the DL/I OpenysClose module. All 
modules indicating open initial in the DDIR are opened by Open/Close at 
this time. 


Upon completion of the open processing, the IWAIT routine address is 
restored and control is returned to CICS initialization. 


DL/I user scheduling is initiated when a task receives control ona 
Transfer Centrel (XCTL). The CICS/VS Program Control Program (PCP) 
examines the DL/I user bit in the CICS/VS PPT entry. If the bit is set, 
CICS/VS branches to DL/I user task scheduling routine, DLZODPO0. An 
indicator is set in the CICS/VS task control area (TCA) and control is 
returned to the CICS/VS PCP, 


DL/I user task scheduling is ccmprised of the following subroutines: 


Task scheduling 

PST initialization 
PSB intent scheduling 
PSB initialization 
Deferred scheduling 
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The caller provides the name cf the PSB to be scheduled or optionally if 
the caller omits the PSB name in the call list, the first PSB name 
encountered in this program's ACT entry is provided as default. fThis 
subroutine determines whether DL/I can support another task and creates 
an entry in the PST prefix area for this task. 


The SCD maximum task indicator is tested. If it is on, the task cannot 
be scheduled, the SCD suspended task counter is incremented by one, and 
an indicator is turned on in the SCD. A CICS/VS SUSPEND macro is issued 
to suspend this task. 


If the SCD maximum task indicator is off, an available PST prefix entry 
is located and initialized for this task. The DL/I task accumulator is 
incremented by one and a test is made to determine whether the number of 
DL/I tasks now equals the maximum allowed. If yes, the SCD maximum task 
indicator is set. Next the SCD current maximum task indicator is 
tested. If on, the task cannot be scheduled immediately, and the 
subroutine issues a CICS/VS WAIT against the event control block (ECB) 
in the assigned PST prefix. The SCD current maximum task indicator is 
set if the scheduling of the task causes the current maximum task value 
to he reached. Control is passed to the FST initialization subroutine. 


PST INITIALIZATION 


PST storage is acquired from CICS/VS Storage Management and the storage 
address is saved in the assiqned PST prefix. FST initialization 
consists of formatting the save area chains and storing the address of 
the assigned PST prefix. Control is passed to the PSB intent scheduling 
subrecutine. 


PSB INTENT SCHEDULING 


This subroutine determines the seqment intent of the PSB being scheduled 
and ensures that no more than one task is scheduled to update the same 
segment type(s) in the same data base. For retrieve sensitive only 
PSBs, a duplicate PSB is created if a prior task was scheduled with the 
Same PSB. The PSB directory entry for this PSB is located and a test is 
made to determine if the PSB is in use and if the PSB is retrieve 
sensitive cnly. If in use and retrieve sensitive only, a duplicate copy 
is made. If in use and not retrieve sensitive only, an indicator is set 
in the assigned PST prefix and a CICS/VS WAIT is issued on the ECB in 
the prefix. If not in use, but retrieve sensitive only, the in-use 
indicator is set and control is passed to PSB initialization. If 
neither of the above is true, the PSB segment intent list entry must be 
scanned. 


The segment intent list for this PSB is located from the PSB directory 
entry. This list defines all segments in the data base(s) used by this 
PSB and also defines the PSB's sensitivity to them, The segment intent 
list entry is compared to the segment intent list entries of all 
scheduled PSBs. If no intent conflict is detected, the PSB 
initialization subroutine is called. Otherwise an indicator is set in 
the task's PST prefix and a CICS/YS WAIT is issued for the task. Upon 
completion of a successful segment intent scan, the PSB initialization 
subroutine is called. 


If it is necessary to provide duplicate copy(s) of PSBs, this routine 
acquires storage for the copy and moves the original copy to it. 
Addresses in the duplicate are adjusted correspondingly and a duplicate 
PSB directory entry is created. The level table(s) are then reset and 
control passed to the PSB initialization subroutine, 
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PSB INITIALIZATION 


PSB initialization consists of inserting the SDBs in the PSB into the 
SB chain. The PSB is located from its PSB directory entry, and the 
address of the PCB address list is stored in the CICS TCA. Each PCB is 
located and the JCE pointer is used to obtain the address cf the start 
of the SDBs for that PCB (JCBSDB1). Each JCB is accessed and the SDB 
chain pointers in the SDB and the PSDB in the DMB are updated. This 
process continues for all SDBs defined in the PSB. 


The address of the assigned PST is obtained from the PST prefix and 
stored in the ESB. Using this address, the PSB directory entry address 
is stored in the PST. The "DL/T is scheduled" indicator in the PST 
prefix is set. If the PSB indicates the user is update sensitive, a 
call is made to the DL/I data base logger module (DLZRDBLO) to write an 
application program scheduling record (X'08'). Control is then returned 
to the calling routine. 


SCHEDULING 


A DL/I call allows scheduling. The function code is 'PCB* and the call 
contains the name cf the PSB to be executed. The call is passed to the 
online program request handler via the language interface module anda 
scheduling validity check is made. If the call is valid, the task 
scheduling subroutine is called to schedule the PSB. Upon comrletion, 
control is returned to the application program through the program 
request handler and the language interface. If the call is invalid, a 
one byte error return code is stored in the CICS/VS TCA and control is 
returned directly to the application progras. 


If the 'PCB' call is made to schedule the system interface, the password 
is tested against the user generated one in the nucleus and the 
interface is tested for availability. A PST and dummy DSG are aquired 
for the caller, the task is marked as a system task, and control is 
returned to the uSer. 


DL/L online calls are nade in the same format as batch calls. The user 
issues a call instruction, passing parameters in the call list, and 
Frovides a register save area address in register 13. Communicaticn 
back to the user as to the results cf the call is also identical to the 
batch system. It should be noted that although the format of the call 
instruction for cnline is the same as in batch, storage used by DL/I to 
process the call (i.e., register save area; all data items in the call 
list; I/O area) must be acquired from CICS/VS dynamic storage due to the 
re-enterability requirements of application prcgrams which run under 
crcsysvs. 


LANGUAGE INTERFACE MODULE 


Although the language interface is not part cf module DLZ0DP00, it is 
involved in call processing. The language interface module is link- 
edited to each application program via the call instruction. The module 
has twe entry points; one for Assembler and COBOL, and the other for 
PL/I. The first function performed at either entry point is to save the 
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user's registers. Then a language indicator is set, the entry point to 
the program request handler is acquired from the DOS/VS COMREG, and a 
tranch is taken te the program request handler. 


FROG FAM REQUEST HANDLER 


This routine is responsible for communication to and from the DL/I 
acticn modules and the user. It establishes the necessary table 
addressability for the action modules, and formats and validity checks 
the call list. It also moves the requested data to the user's I/0 area 
and returns control to the application progran. 


Upon entry, the determination is first made as to whether or not this is 
a scheduling call. If it is, the scheduling subroutine is entered. If 
not, addressability to the PST is established and the language indicator 
is set in the LIPARMS section of the PST. Next the user's call list is 
inspected to determine whether it is in the proper format. If not, the 
list is converted to the implicit direct format in an area provided in 
the PST. The address of the list is stored in the PST, Then the call 
list is checked te ensure that all addresses are valid. If valid, the 
call is passed to the call analyzer; otherwise, a return code is 
inserted in the TCA and centrel is returned to the user. 


The DL/I action modules process the call and, when complete, control is 
returned to the pregram request handler through the call analyzer. A 
test is made tc determine whether a pseudo-ABEND condition exists. If 
it does, a CICS/VS task ABEND macro is issued with an ABEND code 
indicating the reason. If an ABEND is not required, a test is made to 
determine whether the call requires data to be moved back to the user. 
The data is moved to the user's I/0 area if required. The user's 
registers saved by the language interface are restored and control 
passed back to the calling application progran. 


Processing of the system calls 'CMXT', "STRT*', and 'STOP' is 
accomplished in the program request handler code. If these functions 


are identified in the call list a direct branch is taken to the 
appropriate routine. 


IWAIT ROUTINE 


The IWAIT routine is entered from the DI/I buffer handler (DLZDBHO0) or 
from other modules whenever an I/O wait or resource enqueue wait must be 
issued. The fcllowing processing occurs: 

e Registers 14 through 12 and 13 are saved. 


e Registers 12 and 13 are initialized with the CICS/vVS CSA and 
currently dispatched TCA. 


e A CICS/VS WAIT to CICS/VS Task Control Management is issued. 
e Uren return, registers 14 through 12 and 13 are restored. 


e Return is to the calling medule via register 14. 
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DL/I user task completion is entered by the CICS/VS PCP when a user's 
task scheduled by DL/I returns through CICS/VS Program Management or 
when the DI/I 'TERM*' call is issued from the application program. This 
routine is resfonsible for purging any buffers altered by this task, 
calling the data base logger to write the application program 
termination record (X*07'), releasing any system resources owned by this 
task, and posting or resuming tasks which were marked as not scheduled. 


TASK TERMINATICN 


Task terminaticn first determines whether this task was assigned a PST 
prefix. If not, this task must have been stall-purged by cCICS/VS and 
was originally suspended by the task scheduling module. In this case 
the suspended count accumulator is decremented and the task*s TCA 
removed from the DL/I suspended task chain. Control is then returned to 
CICS/VS Program Management. If the task terminates abnormally, its DL/T 
control blocks are dumped by DFHDC. 


If this task was assigned a PST prefix, a test is made to determine 
whether the task was scheduled. If not, the task was stall-purged by 
Cicsyvs. This means this task was suspended by a CICS/VS Storage 
Management attempt to acquire either PST or PSB storage. If it was due 
to PST storage acquisition, the assiqned PST prefix is cleared and put 
back on the free chain and the system resource allocation routine is 
entered. If it was due to PSB storage acquisition, the PSB directory 
entry is cleared, PST storage is freed, and the PST prefix is inserted 
in the free chain. Control is then passed to the system resource 
allocation routine. 


If the task was scheduled and active, normal task termination proceeds. 
First a DLyI internal "TERM* call is issued to the call analyzer 
(DLZDLA00). This call causes the analyzer to reset the level table(s) 
in the PSB. If update sensitive, the buffer handler (DLZDBHO0) is 
called to write out all buffers altered by this task. Next the PSB 
directory entry is tested for update sensitivity. If indicated, the 
data base logger (DLZRDBLO) is called to write the application program 
termination record (X'07"). If the task had update sensitivity, the PST 
prefixes are scanned and any waiting for scheduling because of segment 
intent conflict are ‘POSTED'*, 


Next the PSB directory entry is released. For update sensitivity PSBs, 
this involves resetting the "user scheduled" indicator. For retrieve 
only, a test is made to determine whether this was a duplicate PSB. If 
so, the storage acquired for the PSB is freed and the duplicate PSB 
directory entry is cleared. Control passes to the system resource 
allocation routine. 


If the system call interface is active the DDIR entries for the 
terminating PSB are checked for the waiting for close indicator. If the 


indicator is on and the use count of the DMB is now zero, the systen 
task is resumed. 


SYSTEM RESOURCE ALLOCATION 


This routine is responsible for determining whether any tasks are 
waiting to be scheduled and, if so, for taking the proper action to 
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cause them to be scheduled. First the DL/T suspended task counter is 
tested. If nonzero, the first task on the DL/I suspend chain is lecated 
and a CICS/VS RESUME macro is issued. The suspend chain is then updated 
by removing the task's TCA from it, the suspended task counter is 
decremented, and, if zero, the maximum task indicator is reset. Next 
the DL/I task counter is decremented. If the task count is less than 
the current maximum task value, the current maximum task indicator is 
reset and PST prefixes which were "WAITING! due to this condition are 
*POSTED' complete. Control is then returned to the CICS/VS PCP. 


EL/T_NORMAL SYSTEM TERMINATION -_DLZODPOO 


The following processing occurs prior to CICS/VS termination. 

e DL/I system termination (DLZOPD02) is entered from the DL/I linkage 
module DLZSIP00, as specified in the CICS/VS pre-termination 
processing list (PPL). 


e The DL/I leg DTF is located and a DOSYVS CLCSE is issued for the DL/I 
log. 


e DL/I system termination is re-entered by CICS/VS System Termination 
Program. 


e A DL/I CLOSE call is issued to the DL/I OpenysClose module (DLZDLOCO) 
to close all data sets fer all DMBs in the systen. 


e Return is made to the CICS/VS via the DL/I linkage module. 


The DL/I abnormal system termination routine is entered frem CICS/VS 
when the DL/I rartition is to be terminated abnormally. The following 
processing occurs: 


® The DL/I log DTF is located and a DOS/VS CLOSE is issued for the DL/I 
log. 


e The DL/I control blocks are dumped. 


e Return is made to the calling CICS/VS program. 


The following processing occurs: 


The DLI/I error code is extracted from the active PST. 

CICS/VS storage is acquired. 

e The appropriate DL/I message is created and logged to the destination 
CSMT via CICS/VS Transient Data Management. 

* Return is made to the calling routine. 


If CICS,/VS storage cannot be acquired ocr an error occurs while writing 
to transient data, an indicator is placed in the TCA and return is made 
to the calling routine. 
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VSAM EXCP EXIT PROCESSOR - DLZOVS EX 


The EXCP exit processor receives contrel directly from VSAM after each 
svc Q resulting from a GET or PUT call from the buffer handler. DL/TI 
checks the ECB fcr ccmpletion of the I/O request. If the request is 
incomplete the CICS/VS environment is re-established and a CICS/VS task 
control wait is issued in behalf of the current task. If the ECB was 
previously posted or the event completion has caused the task to be 
removed from the wait condition, control is returned directly to VSAM 
via register 14, 
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DESCRIPTION OF _ DBD _GENERATION 

LBD generation is ccmposed of a set of DLYI macro instructions, the 
execution of which creates the user-specified data base descrifticn 
(DBD) and places it in the DOS/VS source statement library. The 
following macro instructions represent [BD generation: 


Macro Instruction 

D2: ee oe ee eee Purpose 

DBD Allows the DL/I user to define the name of 
the [CBD and the data base organization 


LCATASET Allows the DL/I user to define names for data 
sets representing a data base, the device 
type used for storage of the data hbase, the 
logical record length, and the blocking 
factor for the physical records in the data 
sets representing the data base 


SEGM Allows the user to specify a DL/I segment, 
its parent segment, the segment length, the 
segment name, and seqment prefix information 


LCHILD Allews the user to define an index 
relationship or a logical relationship in 
which a segment will participate. 


XDFLD Allows the user to define secondary indexing 
relationships. 


FIELD Allows the DL/I user to specify a data field 
or key field fer a seqment. The field 
definition includes the related segment field 
name, field start position in segment, field 
length, and field type. 


DBDGEN Causes the segments, fields, and data sets 
defined in the SEGM, FIELD, and DATASET macro 
instructions to be generated into an object 
module, . 


FINISH Checks whether a DBDGEN statement was 
present. 


The LBD generation macros utilize a universal set of globals. These 
globals are in the DOS/yVS Source Statement Library and are named 
DLZCEGLB. 
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SYMBOL 
NAME 


Acc 
ALIAS 
BLK 
CDNBR 
CYL 
CBD 
DBDERR 
DBN 
TBNAME 
DFL 
DLEV 
TMN 

DN BR 
DSC 
DSL 
DSs1 
DS2 
EBCDIC 
ERROR 
EXTCB 
EXTDEN 
EXTCBER 
Fa 

FBI 
FB2 
FBS 
FB4 
FK1 
FK2 
FK 3 
FKY 
FLOINAM 
FN1 
FN2 
FN3 
FN4 
FSF1 
FSF2 
FSF3 
FSF4 
FT1 
FT2 
FT3 
FT4 

FF 

EDB 
HDRBN 
HEX 

IB 

LEV 

LP 
MAXCHLD 
MAXDMAN 
MAXFPILDS 
MAXSEGS 
RSEQ 
OBLK 
CREC 
ORG 
PARNT 
PLIST 
ENBR 


SYMEOL 
TYPE 


CHAR 
BINARY 
ALGEB 
ALGEB 
ALGEB 
BINARY 
BINARY 
CHAR 
CHAR 
ALGEB 
ALGEB 
CHAR 
ALGEB 
ALGEB 
ALGEB 
CHAR 
CHAR 
CHAE 
BINARY 
ALGEB 
ALGEB 
ALGEB 
AIGEB 
ALGEB 
ALGEB 
ALGEB 
ALGEB 
BINARY 
BINARY 
BINARY 
BINARY 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAF 
CHAR 
CHAR 
CHAR 
ALGEB 
ALGEB 
ALGEB 
ALGEB 
ALGEE 
ALGEB 
ALGEB 
ALGEB 
ALGEB 
ALGEB 
BINARY 
ALGER 
ALGEB 
ALGEB 
ALGEB 
BINARY 
ALGEB 
ALGEB 
ALGEB 
BI NARY 
CHAR 
ALGEE 


MATRIX 
SIZE 


255 


255 
200 
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SYMBOL 
DESCRIETION 


Database organizaticn 
Current segment is logical 
Blocking factor table 
Current DMAN number 

Cylinder cap. and ISAM variables 
DBD statement spec switch 

DBD error switch 

Database name 

Ext database ref table 

DMAN field lengths (LLSS) 
Lowest level seg in dataset 
DMAN name table 

Number of OD DMAN statements 
DMAN segment count 

DMAN Segment lengths (LLSS) 
DD1 name table 

DD2 name tatle 

Inter-macro symbol 
Inter-macro error switch 

EXT database table next entry 
EXT database table entry 
Number of entries in ext dhtable 
Next field in segment entry 
Field start & size 


Segment field flag 


Field in segment check table 
Field name 


Source field name 


Field type & segment ne. 


Number of fields 

Max. bytes (HD) 

Max. RBN (HD) 

Inter-macro symbol 

Non-index char value 

Number of levels in database 
Current segment has an LPARENT 
Max. number of LCHILD specs 
Max. number of DMAN specs 

Max. number of field specs 
Max. number of SEGM Specs 

Seq. fields nct allowed 

QOSAM or output BLKFACT table 
QOSAM or output LRECL table 
Database organization ccde 
Segment parent pointer required 
Inter-macro symbol 

Inter-macro symbol 
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BINARY 
BINARY 
AIGEB 
ALGEB 
ALGEB 
CHAR 
ALGEB 
ALGEB 
ALGEB 
ALGEB 
BINARY 
ALGEB 
ALGEB 
ALGEB 
CHAR 
BINARY 
ALGEB 
AILGEB 
ALGEB 
CHAR 
CHAR 
ALGEB 
ALGEB 
CHAR 
CHAR 
ALGEB 
ALGFEE 


255 


255 
10 
299 


255 
255 
255 
255 


255 
255 
255 
205 
255 
255 
255 
10 
19 


Segment paired indicator 
Inter-macro error sw#itch 

Numter cf root anchor peints (HD) 
LRECL table 

Root seq. field length 
Randcmizing module name 

Current segrent number 

Segmant size 

Cyl. tc scan for free space 
Source segment flag table 

Seq. field check flag 

Number of fields in segment 
Segment flags (bytes 1 6 2) 
Segment flags (bytes 3 6 4) 
Segment index field name 
Sequence field check flag 

Source segment entry 

Numbker of LCHILD entries 

LCHILD flags (db, seg, flags) 
LCHILD segment name 

ICHILD paired segment name 
Number of LCHILD statements for segment 
Segment lev, db number & pointer number 
Segment name 

Source segment table 

Third & quarter track capacity 
Track & half track capacity 
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Macro 


DATASET 


DBD 


CBIGEN 

DIZALPHA 
DLZC KDDN 
DLZCONVE 
DLZDEVSTI 
DLZHIERS 


DLZLRECL 


DLZSEGPT 


DLZSETFL 


DLZSOURS 


DLZX PARM 


DLZXTDBD 


FIELD 


ICHI LD 


SEGM 


XDFLD 





DBDGEN MACRO - GLOBAL SYMBOL CROSS REFERENCE 


ne eS a a Se eee Se ee Se ce SOE eg SE SD ame ED CUE eeere ee ae a 


Symbel 


RP 0 A RE SD ED ED eR EN ER NS AD ED ON SE SEED ED OLD SN A SD NED NS ED OD ND NDE SD SAND SUTE SNDED SEND SRST AONE ND SED SEE AED SAND SND SRD SEED GEERT GOES gS AEN SE ee -HAN nS END alenee NID lS 


BLK, CDNBR, DED, CBDERR, DEV, DLEV,DMN,DNBR,DS1, 
DS2,MAXDMAN, OBLK,OREC,ORG ,QUITB, REC,SCN,TRK 


ACC,DBD,DBDERR ,DBN,HDB,HDEBN, MAXCHILD, 
MAXDMAN, MAXFLIS,MAXSEGS,QUITB, RAPS, RMN 


Sea the complete symbol table 

QUITB 

DBD, DEDERR, 2D, DDNS, I4S,NOGO 

EBCDIC,HEX, QUITB 

CYL ,DAE,THRD,TEK 

DBDERR, HSEOQ 

BLK, CYL, DAE, CRDERR, DEV, DLEV,DSL,DSZ,OBLK, 
OREC,ORG,OVF,RAPS,REC, RKREY,SB,SFQ,SLDP, 
THRD, TRK 


BLK,CDNBR,DBDERR,DSL,OBLK, OREC, RKEY,S,SB, 
SLDP,SN 


CDNFPR, DBDERR, ERROR, HIER, LP, NSEQ,ORG, PARNT, 
PLIST, PNBR, PRD,S,SB,SF1,SF2,SLCF,SLCN,SLCP, 
SLCS,SLDP,SN,VV : 


S,SL, PNBR, EXTDBN,SLEIP, SD, FT 1,QUITB,ERROR, 
DBDERR,ACC,DBN, PLIST, SS,SN,FN1,FSF1 


ERROR,PLIST,PNBR 
DBDERR, DEN, CENAME,EXTDB,S,SN,EXTDBN 


ALIAS, CDNBK, DBD, DBDERR, DFL, Fa, FB1,FLDNAM,FN1, 
F11,FF,MAXFLDS,NSEQ,ORI, PRD, RKEY,S, SB, SEQCK, 
SFLD 


ALIAS, CDNBK, DBD, DBDERR, 1B, LP, MAXCHILD,ORG, 
PARNT,QUITB,S,SB ,SF1,S1,SIC,SLCF,SILCN,SLCP, 
SLCS,SLDP 


ALIAS,BLK,CDNBR,DBD,DBLDCERR, DLEV,DSC,DSL, . 
ERROR, EXTCBN, FO,FF,HIER, IB, LEV,LP,MAXSEGS, 
NS EQ, ORG, PLIST, PNBR,PRD,QUITB,REC,RKEY,S,SB, 
SEQCK,SF1,SF2,SF2,SI,SK,SIC,SLCF,SLCN,SICP, 
SLCS,SLDP,SN,VV 


S,SL,SLC,FF ,HEX ,ORG ,FY1,SFLD,SD, QUITB, FLDNAM, 
SN,SS,FN1, FSF1, DBDERR 


Licensed Material - Property of IBM 


DBDGEN_BACRC DESCRIPTIONS 


DATASET MACRO 

This is an external macro through which data set/data set grour 
information is specified by the user. 

DBD MACRO 


This is an external macro through which DBD control information is 
specified by the user. 


DBDGEN MACRO 
This macro terminates the CBD specification process. If the error 


switch, DBDERR, is not set, the control block generation phase is 
entered to create the required block entries. 


DIZALPHA MACEO 


a re ee eT 4 
1 | | 
| | AN 1 
| 1 DLZALPHA | ANT ,FIELD=,CHAR= 1 
1 ! | ALL { 
I { | I 
ho a et Se ta rae 


This macro tests a specific character position (represented by the CHAR= 
coperand) or all character positions in a specific field (represented by 
the FIELD= operand) to determine if the chracter is one of the 39 
aplhameric characters (A through X, #, $, 9, and 0 through 9). The 
value range of CHAR is 1 to 255. The default value is 1. The global 
symbel QUITB is set in the following cases: 


e If the positional parameter is not AN, AN1, or ALL and the character 
is not alphabetic (A through Z, #, £, @). 


e If the positional parameter is AN and any chracter is not alphameric 
(A through 7, #, $, @, or 9 through 9). 


e If the positional parameter is AN1 and the first character tested is 
not alphameric (A through Z, #, $, 8, or 0 through 9). 


e If the positional parameter is ALL and the first character tested is 
not alphabetic (A through Z, #, §, @). 


DLZCAP MACRO 





Tr ee Pe Ee ne eR a Pe ee ed Se Gee TN Ve ge 
| 1 | { 
t | DLZCAP | DEVICE, BLCCKSIZ ! 
| 1 | 1 


Dn ci ar ne ae a ne ne ee a ee ae | 





This macre is called by DBDGEN to calculate the block capacity per track 
and cylinder provided the blocks do not have keys. Thes2® numbers are 
required to generate some entries within the DTFSD (HSAM) and ACB- 
extension. The capacities are returned using global arithmetic 
variables (GBLA). Input values are: 
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DEVICE: 2314, 3330, 3333, 3340 

BLOCK SIZ: in bytes (key length = 9) 

Output (GBLA) and MNOTE: 

SCAPTRK: number of blocks per track (GBLA) 

$CAPCYL: number of blocks per cylinder (GBLA) 

MNOTE: DMAN150 if invalid device 

MNOTE: Comment containing $CAPTRK and $CAPCYL if calculation 


was successful 
DLZCKBON MACRO 


1 1 | 
| | DLZCKDDN j 


{ | { 


Or a a ne te ee a a RS NR 


FILENAME 





This macro checks the validity of filenames specified by the user and 
verifies that the specified filenames are not duplicated. 


The operand is: 
FILENAME 


is the one- to seven-character filename to he chacked. 


CIZCCNVE MACRO 





eee Rete og yee ee ee eT eee ee, ee at 
| | { { 
1 1 1 VALUE= 1 
i | DLZCONVE | DIGITS= 1 
j | I TO | 

I { | 
Waa a a a a a a ar as ee en ee ee 


algebraic set symbol to 
converts the value cf a 


When used this macro converts the value of an 
its printable hexadecimal equivalent; it alse 
character set symkcl to an algebraic value. 


If the value to be converted is algebraic and 
printable hexadecimal, the ccnverted value is 
global set symbol EBCDIC, If the value to he 


is to he converted to 
returned in the character 
converted is a character 


set symbcl, the cenverted value is returned in the algebraic set symbol 


HEX. 


The operands are: 


Range is 1 to 


VALUE= 

is the character or algebraic set symbol to be converted 
DIGITS= 

is the number of digits to be converted. 

8. 
TO=EBCDIC 


The specified value is algebraic and is te be converted 


to printable hexadecimal. 
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TO=HEX 


The specified value is character and is to be cenverted 
to algebraic. 


If the input value is not convertible, or if the TO= operand is invalid, 
switch QUITB is set to 1 and the macro exits. 


CLZDEVSI MACRO 





oe ee ee ST EE ST AT TL TL. Nc RNY RES NE 


< 
1 ! 1 1 
1 | DLZDEVSIT 3} DEVICE I 
{ | | 1 


t_— 





et inci en te ne etapa ce Powe ee ene ewes mnmemnee ae ana 





This macro is called by the DATASET macro to set device capacity values 
for the specified device type. The device value specified in the DEVICE 
cperand of the LATASET statement is passed tc this macro. 


DLZHIERS MACRO 


.--—-----------__—-----—---- - +, 
1 ! 1 | 
| |] DLZAIERS | PC, FPC,PLEV | 
1 | | | 


Mn ca ma a a i a a wt a a a ee ——t 





This macro is called by the SEGM macro to validate the hierarchical 
sequence of secment specifications. The macro maintains a 16-entry 
table (HSFQ) containing the lowest allowaktle PC at every level. 


The operands are: 


PC 

specifies segment physical (or sequence) cede 
PPC 

specifies parent physical code 
PLEV 


specifies parent level 
An error messace is produced if any of the following conditions exists: 
e PC # 1 and PLEV = 0 
*® PIEV > 14 or PPC > PC 


e value of PPC # value of HSEO table entry represented by PLEV 
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DLZLRECL MACRO 








Bore rey a a ig te Ge ee STO ae ee ORT tee te ee a ae 
{ | { { 
! { DLZLRECL | NUMBER { 
1 I | | 
| ee Ne | 


where NUMBEF = 1 


This macro is called by DBDGEN to calculate LRECL and BLKSIZE values for 
the file number specified in the operand field of the macro call. 


DLZSEGET MACRO 


Se ee a el 
| | 1 1 
) | DLZSEGPT | NUMBER 
I I { | 


ee | 


where NUMBFR = 1 


This macro is called by SEGM, LCHILD, and DBDGEN to maintain the symbol 
DSL, which contains the sizes cf the largest and smallest segments in a 
data set. This macro produces error messages SEGM330, SEGM340, and 
SEGM3250 if the segment referenced by the operand value violates those 
rules. 


DLZSETFL MACRO 





1 
| | | { 
{ | DLZSETFL |  EN,FULES= 
1 1 | 1 
+ a5 


eS SO NS A ee SNS AS ER RS ES NS SE AY SSS: SA SEAS ASA yeu SA SE OARS “ANN nue "OY 


This macro processes the FOINTER or PTR operand of the SEGM macro and 
sets the &SF1(&S) and &SF2(&S) globals to reflect the entered value. 
The 6&SF1(&S) and &SF2(6S) globals set ty this macro comprise the 4-byte 
flags field of the SFGTAB entry for this segment. 

This macro is not entered if the DLZXPARM macro encountered an error 
while generating the &PLIST matrix, or if the SEGM macro detected an 
error in the POINTER or PTR parameter list. 

Messages: 

An error message is produced and processing is terminated if: 

* An invalid keyword is encounterad in the parameter list, or 


e The RULES operand is omitted or invalid 
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Flag Byte 1 (&SF1(6S) Byte 2) is set as follows: 


Bit CTR If IWINBWD and/or LTWINBWD is specified, 
- TWIN Bit 2 and/or Bit 5 is set on, in 

- TWINBWD addition to Bit 3 and/ver Bit 6, 

- PAENT respectively. 

LTWIN 

- LTWINBYD 

- LPARNT 


- HIER 


BINA is HN 
| 


Flag Byte 2 (&€SF1(&S) Byte 3) is set as follows: 
Bits 16 2 Indicate segment insert rule, where: 
10 - Physical 
01 - Virtual 

11 - Logical (Default) 


Bits 3 § & Indicate delete rule and set same as insert. (Default+ 
value is LOGICAL). 


Bits 5 & 6 Indicate replace rule and set same aS insert. (Default 
value is VIRTUAL). 


Bits 76& 8 Indicate physical location of inserts for nensequenced 
Segrents, where: 


10 - First 
91 - Last (Default value) 
11 - Here 


Flag Byte 3 (&SF2(&S) Byte 2) is set as follows: 


Bit 1 Segment PAIRED (set Ey SEGM) 
2-4 Reserved | 
5 Physical parent PTR 1=DBLE {set by SFG) 
6-8 Reserved 


The operands are: 
EN 

specifies the parent segment number 
RULES= 


specifies the RULES= operand as specified on the SEGM statement 


DLZXPARM MACRO 


Ae ee BS oe eS eR DES ma EN RN RE wr TP 








——— 





. 
I { | 

1 {| DLZXPARM { PARS=, NBR= 
| 


When used this macro extracts parameters frem a sublist and stcres them 
in a global matrix (PLIST). Null values in the parameter list are 
stored as null values in the PLIST matrix. 


The operands are: 
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specifies the input parameter list values 
NBR= 


specifies the maximum number of operand values to be 
allowed in each subparameter 


DLZXTDBD MACKO 


Se egy Se Sr tg Ey EE ig ee eg re eet Ve ee eS ee we ee 
| | { i 
! ] DLZXTDBD }{ DB, CODE | 
{ I { { 


ne 





This macro builds an external data base reference table. It is called 
by SEGH, LCHILD, and (CBDGEN, 


The operands are: 

DB 
Specifies a data base name or seqment name 

CODE 
specifies the value SEGM or is cmitted. 
If the value SEGM is specified in the CODE operand, the 
segment name (SN) is searched to locate the value 
specified in the PB cperand; when found, the symbol 
EXTDBN is set to contain an 01 in byte 0, and bytes 1, 2, 
and 3 contain an offset into SEGTAB. If the segment is 
not found, an MNOTE error message is produced, 
If the CODE operand is cmitted, the external data base 
reference table (DBNAMF) is searched for the DB entry, 
and, if found, the symbol EXTDBN is set to contain the 
position of the found entry. If the DB value is not 


found, the value is added to the table and FXTDEN is set 
to that entry. 


FIELD MACRO 


This is an external macro used to define fields within a segment. 
PINISH MACEO 


This is one external macro, it checks whether a DBDGEN statement is 
¢upplied. 
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ICHILD MACEO 


This is a external macro used to define index relationship for HIDAM and 
HDA. 


SEGM MACKO 


This is an external macro used to define data base segments. 


XDFLD MACRO 


This is an external macro used to define in connection with the LCHILD 
statement seccndary index relationships for HIDAM and HDAM. 
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PSB generation is composed of a set of DL/I macro instructions, the 
execution of which creates the user-specified program specification 
block (PSB). The following macro instructions represent PSB generation: 


Macro Instructicn 

Name. Purpose 

PCB Allows the DL/I user to define a program 
communication block (PCB), one cr more cf which 
exist within a single PSB. A PCB must exist for 
each data base with which the associated 
application program PSB intends to interact. 


The PCB macro saves the type of PCB, associated 
data base name, the intended processing options 
on that data base, and the maximum key length 
within the data base. One or more PCB macros can 
be used in a single PSB generation. The limit is 
20 PCB macros per FSB generation. 


SENSEG The SENSEG macre instruction allows the DL/I user 
to specify a segment within a data base to which 
the application program associated with this PSB 
is sensitive. Up to 255 SENSEG macros may follow 
a PCE macro. 


PSBGEN The PSBGEN macre allows the user to specify the 
associated application program language and the 
name of the PSB control block to be generated. 
The PSBGEN macro is the generating macre for the 
entire PSB control block and its internal PCB 
control blocks. 


PSBGEN MACRO CALLING SEQUENCE 


External | | | 
Macro 1 Inner 1 | Inner 2 i 

{ | | 

FCB 1 DLZCKOPT | 1 
! DLZ ALPHA 1 | 

{ DLZXT DBD | j 

1 1 | 

SENSEG | DLZCKOPT ] { 
1 DLZXPARMS 1 1 

| DLZXTDBD 1 1 

| | | 

PSPEGEN 1 DLZPCBRPD { 1 
| { | 
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PSBGEN MACRO - GLOBAL SYMBOL CROSS REFERENCE 


ee Ee Se ED EE ED ED ED ee a DS Cen Re ce SEN SEED SUED GD ED RO GO A AEDT ED A A SRN NS AOD aD eS GED SD 


Macro Symbel 
DIZALIFHA QUITB 
DLZCKOPT E,P,PO,S,SPO0 
DLZPCBPD DVSIZE 
DLZXFEAERM ERROR, PNER, PLIST 
DLZITDED DBDERR, DEN AME, EXTLTE, EXTOBN, DBN,S,SN 
PCB DB,E,?P, PFB, PK, EN, PO, PS, PSS, QUTTB,S,SEG 
PSBGEN DB,DBNAME,DVSI ZE,E,FXTDB,F, EFB, PK, PN, 


PO, PS, PSS,S,SG,SN,SP,SPC, SPO, SS,SSE,SSG 
SENS EG E,ERROR,EXTDBN,P,FLIST,EN,ENBR, PO, PSS, OUITR, 
S,SEG,SG,SN,SP,SPC,SEC, SS,SSE,SSG 


PSBGEN_MACEC DESCRIPTIONS 


DIZALPHA MACRO 


A description cf the DLZALPHA macro appears in Chapter 5. 


DLZCKOPT MACRO 


Ger er re ry ge ee tp NV gn te a PEE ET Ea ig mee CO ep Pg oy ED 
I | t ! 
j { DLZCKOPT j OPT, 1 
| | l 1 
On cee ee ee ee pee at cone 


This macro is called by the PCE macro or SENSEG macro to validate the 
FROCOPT operand. The macro generates either the PCB or the SENSEG 
*PROCCET OCEFRAND IS INVALID’ error message. Global symbol PO or SPO is 
set to ccntain the processing cption. 
The operands are: 

OPT 


specifies the PROCOPT operand as entered 
on the PCB or SENSEG statement 


is PCB or SENSEG message number 


LLZPCBPD MACRC 
This is an inner macro called by the PSBGEN macro. It generates the 


PL/I dope vector table if LANG=PL/I is specified in the PSBGEN 
statement. 
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DLZXPARM MACRO 


A description of the DLZXPARM macro appears in Chapter 5. 


DIZXTIDBD MACEKO 


A description cf the DLZXTDBD macro appears in Chapter 5. 


PCB MACRO 


This is an external macro used to define a DP PCB. 


PSEBGEN MACRO 


This is an external macro used to terminate PSB specifications, and, if 
ho errors have been encountered, to cause the generation cf the PSB 
contrecl blecks. 


SENSEG MACRO 


This is an external macro used to specify sensitive segments ina data 
Fase PCB. 
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The application control blocks creation and maintenance utility creates 
the internal control blocks required by the DL/I applicaticn frogranm., 
Using the PSB and DBDs as input, this utility creates DL/I internal 
format control blocks as output. These output control bhlecks must be 
link edited into the DOS/VS Core Image library, either private or 
system, as specified by the user. These bklocks contain informaticn 
about the data bases and the programs which use them. They describe 
some device and media characteristics, the stored data structures, and 
the logical data structures as seen by both tke system and application 
programs. The pregram accepts control card input to determine what 
functicns are required. 


The logic flow is as fellows: The control card input stream is 
frocessed and each card is syntax-checked. A sorted list cf requested 
blecks is built in main storage. Fach PSB name specified cn the control 
card is inserted into the list. 


Each name on the constructed build list is then passed to the 
application cortrel blecks builder mcdule DLZDLBLO to have blocks 
constructed. Fach name, in turn, is passed to the ACB relocater and 
writer module DLZUAMBO; addresses are relocated relative to zero and the 
ccnpleted blocks are written to a SYSPCH or SYSLNK data set. 
BLCCKS AND TABLES - DLZOACBO 

Program contrcl parameter block: 

PST 


scp 
PDIR 


SIZE OF MODULE - DLZUACBC 

This module contains approximately 6,000 ktytes of code. 

INTERFACES - PIZVACBO 

This mcdule interfaces with the following modules: 
DIZUSCHO - Called to create and search sorted PSB lists 


DLZDLBLO - Loaded and called to build blocks 
DLZUMSGO - Called to format prebuilt messages 


RO-R1 = PAFM registers 

R2-R8 = Work registers 

R9 = Pointer to PST 
R1C-R11 = Work registers 
R13 = Pointer to save area and primary base register 
R14-R15 = Operating system linkage registers 
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The functicn cf module DLZUSCHO is to create and search sorted lists in 
dynamic (GETVIS) storage using the binary search technique. Any number 
of lists may be created simultaneously (subject only to the limit of 
available storage). A list entry may te any length from 1 to 256 bytes. 
The key or sequence field may also be frem 1 to 256 bytes in length and 
may be located anywhere in the list entry. The only restriction on keys 
is that they must consist of a single contiguous string of bytes within 
the list entry. 


The number of entries in any list is limited only by available storage. 
Eowever, since this routine physically moves data in storage to make 
room for new entries, it hecomes less efficient as the number cf entries 
increases. For large numbers of items, it might be best to consider 
sorting the entries in the conventional fashicn. 


This module is called by DLZUACBO to build and maintain the list of PSBs 
to be processed. 


Cperation 


he? 


e The following interface is used to initiate a new list: 


L 15,=V (DLZUSCHO) 
LA 1,PARMS 
BALR 14,15 


where PARMS is a 3-word list whose contents 
are as follows: 


Word 1 
Word 2 


length of the list entry 

offset from the beginning of the list. 
entry to the key/sequence field 
length of the key/sequence field 


Mt 


Word 3 


Cn return, register 1 contains the locaticn of the new 
list control block. (This location must he submitted to 
the search routine on all subsequent search or insert 
calls for this list.) 


It. The fcllowing interface is used to insert an entry into 
a list: 


L 15,=V(INSECH) 
LA 1,INPARMS 
BALR 14,15 


where INPARMS is the location of a two-word 
list whose contents are: 


address of the list control block 
address of the list entry to he 
inserted 


Word 1 
Word 2 


On return from INSRCH, register 15 contains zero if the 
entry was successfully inserted, and register 1 contains 
the lecaticn at which the insert was made. 


If the entry was not inserted (because a duplicate was 


found), register 15 contains 8, and register 1 contains 
the location of the duplicate entry. 
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Tit. the following interface is used to locate an entry in a 
list created by INSRCH: 


L 15,=V (LOCSRCH) 
LA 1,LOCPARMS 
BALR 14,15 


where LOCPARMS is the lccation of a two-word list 
whose contents are: 


Word 1 = address cf the list control block 
Word 2 = address of the search argument (key) 


On return from LOCSRCH, register 15 contains zero if an 
entry containing the search argument in its key field was 
found, and register 1 contains the locaticn of this 
entry. 


If no entry was found, Register 15 contains 4 and 
register 1 remains as it was on entry to LOCSRCH. 


IV. The fcllowing interface is used to delete all storage 
obtained by OPENSRCH and INSRCH for a given list: 


L 15,=V(CLOSESCH) 
L 1,LOCPARMS 
BALR 14,15 


where LOCPARMS contains the location of the list control 
block for the list to te deleted. 
SIZE OF MODULE - DLZUSCHO 


This module contains approximately 8C0 bytes of code. 
CCNTROI ELCCKS - DLZUSCHO 


e List centre] bicck 


e Sorted list block. 


If scme number of entries have been placed in a list through repeated 
calls to INSKCH, they can be retrieved in sorted order by lecating the 
first block by way of CHAINLOC and all subsequent blocks by way of their 
CHAIN fields. The entries are in order (low to high logical sequence) 
with the lewest entry in block 1 entry 1, next in block 1 entry 2, etc., 
with the highest entry located in the last-used slot in the last block. 


ERROR _ MESSAGE FORMATTING -_DLZUMSGO_ AND CELZLBLMO 


Given a message number, DLZUMSGO selects a messaqe from a message list, 
formats it, and calls the print function. In addition, depending upon 
the input parameters, the routine accepts one or more text strings to be 
inserted into the standard text. 
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The messages are stored in a separate CSECT, DIZUMGTO. Each message is 
flagged to indicate if the insertion function is allowed. If the 
insertion function is allowed, the starting position of the insert and 
the insert length are also stored with the standard text. 


Two macros are used in support of these functions: DL2ZMSG, which 
generates and encodes the standard message and its insert parameters for 
the message list CSECT, and DLZER, which is used by the programmer to 
invoke DLZUMSGO. 

DIZLBLSO0 is called only by DLZDLBLO to execute the DLZER macro for an 
error message. The message number is supplied in register 1. 


SIZE OF MODULES - DLZUMSGO AND DLZLBLMO 


These modules contain approximately 2000 bytes of code. 


INTERFACES - DIZUMSGO 


Register Ccntents on Entry 


R1 Pointer tc input parameter list 
Save area 
R14 - Return address 


K1i5 - Entry point 


toe) 

—_ 

Gd 
6 


DS 1H message number in binary 
DS 1H O=standard message, 
1=inserts 
DS A(address of first insert string) 


DS A(address of last insert string) 


The list of addresses is only valid when the second halfword 
contains -1. The length and the number of inserts allowed are 
encoded with the standard text in the message CSECT DLZUMGTO. 
The message number is used to find the desired message in the 
CSECT. 


INTERFACE - DLZLBLMO 


Register Contents on Entry 
R1 - Message number 
R13 - Save area 
R14 - Return address 
R15 - Entry poirt 


Additionally, any registers which have teen defined to contain specified 


addresses or infcrmation pertaining to the message must be valid. These 
are normally registers 5, 6 and 7. 
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EXTERNAL ECUTINES CALLED - DLZUMSGO 


PRIMSG - Entry point to the print routine in the application 
ccntrol blocks creation and maintenance utility 
(DLZUACBO). 


EXTERNAL ROUTINE CALLED - DLZLBLMO 


DLZUMSGO - via DLZER macro 


The application control blocks builder module is respcnsible fcr loading 
PSBs and DBDs for use of these contrel blccks by DL/I. It is given 
control by module DLZUACBO when DL/I blocks must be created frem a PSB. 


This module (DIZDLBLO) builds the required control blocks for DL/I data 
base execution. Specifically, the module loads the specified PSB and 
builds a JCB for each data base PCB within the PSR. Each DBD defined by 
the PCBs fcr tke PSB is checked to determine whether a DMB exists in a 
core image library for that CBD. If no DMB exists, one is created. 


In order to build the JCBs and DMBs, the DBDs for the data bases to he 
used must be oktained. 


All of the data base organization and structure information previded by 
the PSEs and DBDs is consolidated into the appropriate DL/I internal 
control blocks by this module for use in servicing subsequent data hase 
I/O requests. 

For all newly created DMBs, a special utility PSB is created and 


provided as output by DLZUAMBO. DLZDPSBO is called to build the PSB (in 
PSBGEN format) from a given DMB. 


SIZE OF MODULE - DLZDLBLC 


This module ccntains approximately 12,500 bytes of code. 


INTERFACES - DLZDLBLO 


This module interfaces with the following modules: 


DLZUAMBO - Called to write the blocks to SYSLNK or SYSPCH 

DLZDPSBO = Called to build a utility PSB 

DLZIBIMO - Called to format and write error message 
Register Centents_ on Entry 

R1 - PST address 

R13 - Save area address 

R14 - Return address 

R15 - Entry point address 
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Register Contents_on Exit 
All registers are restored. The return code appears in PSTERCOD of the 
PST. 


PSTERCOE = 0 Valid return 
PSTERCOD # 0 Errors encountered 


This module (DLZUAMB0O) is called by the application control blocks 
builder module (DIZDLBLO). It changes addresses in the DMBs and PSBS to 
offsets. DMB address2s are relocated and the created DMB is written to 
SYSPCH or SYSLNK as defined in the control card. Next, the PSB fields 
are converted to cffsets and the PSB is written to either SYSPCH or 
SYSLNK. The beginning of the PSB contains a PSB intent list entry. 
During DL/I initialization, this information is used to create the 
executable PSB intent list. Centrol is returned to the application 
control blocks builder. 


Should errors he encountered, appropriate, error messages are written via 


DLZUMSGO and control is returned to DLZUACBO with a nonzero value in 
PSTERCOD. 


SIZE OF MODULE - DLZUAMBO 
This module ccntains approximately 5000 bytes of code. 
INTERFACES - DLZOAMBO 


This module interfaces with the following module: 


CLZUMSGO - called to write an error message. 


R1- Address of the parameter list 

R13 - Save area address 

R14 - Application control biccks builder return address 
R15 - Entry point 


Parareter List Format - DLZUAMBO 
Hex Dec Nane Ln Description 
0 0 MOVELIST 4 Constant *MOVE® 
sf] 4 PSBSA VED 4 Address of FSB 
8 8 DUMDDIRB 4 Address of tempcrary DDIR 
Cc 1Z ENQLSTA 4 Address of ENqueuvue list 
10 16 PCBST 4 Address of PST 
44 20 ACUMOPT $4 Address of cumulative option flags. 
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All registers are restored. PSTERCOD in the PST contains the return 
code as follows: 


PSTERCOD = 0 - Valid return 
PSTERCOD # 0 - Errors encounterd 


UTILITY _PSB_BUILDER -_DLZDPSBO 


This module is called by the applicaticn control blocks builder mcdule 
(DLZCLBLO) to dynamically censtruct a special utility PSB froma 
specific DBD. The created PSB is in PSBGEN format. A GETVIS is issued 
to oktain stcrage necessary to create the PSB. The created PSB is 
sensitive to all segments for the data hbase, 


SIZE OF MODULE - DLZDPSBO 


This module contains approximately 800 bytes of code. 


INTERFACES - DIZDESBO 


Register Content _on Entry 


—_ ire GES ms oem Aaa 


R1 - Address of parameter list 


R13 - Save area address 
R14 - Return address of DLZDLRELO 
R15 - Entry peint 


The parameter list consists of a DBD address and a PSR address. 


Registers_on Exit 


All registers are restored except R15 which ccntains a return code 
passed to DLZDLBLO. 


R15 = 0 Valid return 
R15 #0 Errors encountered 
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BATCH BACKCUT INTERFACE - DLZBACKO 


The tatch backout interface medule reads the DL/I log tape and passes 
the data base log records to the data tase kackout module (DLZRDBCO) for 
processing. 


By reading the log tapes in a backward mode, this module is able to 
process the data base records in reverse sequence without using an 
intermediate werk data set. In order to read the tape backward, the 
RECFCRM parameter of the DIFMT macro is specified as undefined (UNDEF). 
When a block is read in, it is searched and the sequence field located 
at the end of each logical record is teplaced hy the length of that 
logical record. With thé length thus in the back of a record as well as 
in the front, it is deblocked and spanned, 


The interface process includes the following record types: 


X'07" = Application pregram termination record 
X'08" - Application program scheduling record 
X'*5C' - Data base log record 
x'51' - Data base log record 


The katch kackcut utility is executed under DL/I control as an 
application pregram. Processing of module DIZBACKO is as follows: 


1. Control is received from DL/I initialization and the PSB name is 
obtained frcem the parameter data. 


2. The log tape is opened to ke read backward. 


3. The log tare is read backward and records typassed until the first 
data hase log record for the PSB is obtained. 


G4, An application program termination record (X'07"') for the PSB 
indicates no backout necessary, the message "BACKOUT COMPLETE" is 
issued at SYSLOG, the log is closed, and the job is terminated. 


5. Data base log records {xX'50' and xX'51') are passed tec module 
CLZRDPBCO tc be processed against the appropriate data base. 
Processing terminates when an application program scheduling record 
is read, the message "EACKOUT COMPLETE" is issued at SYSLOG, the log 
is closed, and the jeb is terminated. 


If end of file is reached on the log (i.e., the header record is read), 
it is closed, a "BACKOUT COMPLETE" message iS issued, and the job step 
is terminated. The job is terminated by returning control to DL/I which 
purges all buffers, closes all DMBs, and closes the output log file. 
Because of DOS/YS restrictions on reading backwards, a multi-volume log 
file cannot be processed, 


SIZE OF MODULE - DLZBACKO 
This module contains approximately 4000 bytes of code. 
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INTERFACES - DLZBACKO 


Register Contents on Fntry 


R1 = ESB list address 
R13 = Save area 

R14 = Return 

R15 = Entry peint 


CCNTROI BLCCKS - DLZBACKO 


Application program scheduling record 
Applicaticn pregram termination record 
Data base log record 

PCIR 

EST 

ScD 


EXTERNAL MCDULES CALLED 


LLZREBCO - Called to interface with DL/I and perform backout. 


RECORD AND MESSAGE FORMATS - DLZBAC KO 


All messages are sent to the SYSLOG and SYSLST devices. The messages 
are contained in mcdule DLZBACMO. 


PATA BASE BACKOUT - DLZRDBCO 


This module receives control from DLZBACKO with a log record tc precess. 
It calls open/close (DLZDLOCO) to open the DMB specified in the record 
unless the data base is already open. The buffer handler (DLZDBHOO) is 
called to retrieve the KSDS or ESDS block as indicated by the key or the 
ESDS relative block number or relative byte address. 


The data in the buffer is replaced with the 'cld* information in the 
log, thereby nullifying the offending programs update. In the case of 
HD, when a physical delete or insert record is processed, space 
fanagement (DLZDHDSO) is called to update the free space elements and 
bit map, if necessary and to build the input data for the data base 
logger. DLZRDBLO is called to record the changes made to the data hbase. 


The buffer handler is then called again to mark that buffer altered and 
control is returned to DLZBACKO, 


SIZE CF MODOLE - DLZRDBCO 


This module contains approximately 1509 tytes of code. 
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INTERFACES - DLZRDBCO 


EST 


R1§& 
PSTSCDAD 
ADDRLOG 


SCD 


town uw oad tt 


address 


Save area 
keturn 
Entry peint 


address 


Address of data base log record within DLZBACKO 


PSTDGU & PSTDGN must be zero on initial entry 


CONTROL BLOCKS 


- DLZRDBCO 


[Tata base log record 


DDI 
DMB 
CSG 
PST 
ScD 


EXTERNAL MODULES CALLED 


DLZDBHOO 
DIZDHDSO 


DIZDLOCO 
DLZRDBLO 


- Called to read a data tase record and te mark the 
buffer altered 

- Called to free or reserve space in an HDAM or 
HIDAM record 

- Called to open data kase 

- Called to log backout modifications to data base 


external modules 


All modules expect R14 # R15 to contain return address + module 
entry print address. 


DLZDLOCO 


R1 
R2 - 


PSTDSGA 
ESTFNCTN 
SCDCWRK 


DL2ZDBHOO 


address of PST 
address of DDIR entry for DMB to he opened 


address of DSG to open 
ESTOCDMB + PSTOCOPN 
address of nermal log record work area 


R1= address of PST 


ESTBLKNM 
PSTACBNO 
PSTDMBNO 
PSTBYTNM 
PSTFNCTN 
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RBN if HD ESDS — 

1 

1 

REA if HISAM ESDS or address cof key if KSDS 
desired functicn 
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DLZDEDSO 


R1= address of PST 
R5 = address of PSDB of segment 


ESTOFFST = offset to segment from beginning of block 
PSTCODE1 = indicates backout in contrel (fer logger) 
PSTFNCIN = PSTFRSPC + X*80' (to show backonut in control) 
DLZRDBLO 
RO = SCY address 
R1 = PST address 
PSTCODE1 PSTININT + PSTSCEED to indicate backout calling 


PSTDATA = address of data in buffer 
= address of backout log werk area containing the 
control information for this lcg record 


All registers are restored with the exception of register 15 which 
contains a return code. If this code is non-zero, DLZBACKO will print 
and type the appropriate error message. 


ERROR CODES AND HANDLING = DLZRIBCO 
All error codes are passed to DLZBACKO in register 15, 


PATA _BASE_DATA_SET RECOVERY UTILITY 
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The data base data set recovery utility module DLZURDBO is executed 
under DL/I control as an application program. Control is passed to 
DLZURDEO from DL/I initialization. This module is comprised of two 
independent but logically related functions. The first consists of an 
image dump and a change accumulation processor. The PCB address is 
“saved, anda GSCD call is issued to obtain the PST address. A control 
card which defines the data hbase/data set to he recovered is read. From 
this informaticn, a DMB is loaded from the Core Image Library to obtain 
the physical characteristics of the data set to be recovered. Once the 
control card processing is complete, the DL/I open/close routine 
(DLZI2LOCO) is called to open the output ACB and the input file is 
opened. Then the program enters a dump/cum data merge routine, This 
routine selects a dump record, merges any accumulated changes from the 
cum data set, and a call is made to the tuffer handler (DLZDBHO0) to 
write the new record to the output data set. Upon completion, a partial 
or ccmpletely recovered data set may exist. If no additional changes 
are to ke applied through log tapes, the program calls the DL/I 
open/close routine (DLZDLOC9) to close the output ACB and terminates. 


If additional changes are to he applied frcem lcg tapes, the program 
enters the seccnd function. This routine opens the logs, scans the log 
to find a record that applies to this data set, and merges the data from 
the log to the data set record. Upon completicn, the routine does post- 
processing and a recovered data set then exists. 


The operation of this routine depends on certain DL/I functions to 
process the logs. The log is scanned for a matching data hase/data set 
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name record. When one is encountered, the record ID, either a key of a 
KSDS record or a relative block number of an ESDS record is saved, anda 
call is made to the buffer handler (DLZDBHOO) requesting that the record 
be retrieved. Uren successful return, the log record data is merged 
with the returned record, and a call is made to the buffer handler 
requesting that the record be marked as altered to cause rewriting. The 
records from the log are thus processed until an end of file is 
encountered on the log input. At this time, a call is made to the 
buffer handler requesting that all altered buffers be purged, that is, 
that all records that have been altered be rewritten. The program then 
calls the DL/I open/close routine (DLZDLOCO) to close the output ACB, 
and the prcgraw terminates. 


BLOCKS AND TABLES - DL2ZURD80 


This module utilizes certain [fL/I blocks, including the PST, DSG, DMB, 
DMB directory, SDB, PCB, JCB, and SCD. Additionally, several record 
formats are used as follows: 


1. HISAM reorcanization header and data records. See Chapter 9 on 
HISAM reorganization unload (module DLZURNLO) for details. 


2. Data base image dump header and data records. See discussion beloy 
of the data base data set image copy module (DLZUDMPO) for details. 


3. Accumulated change CUM header and data records. Refer to discussion 
of the change accumulation module (DLZUCUM0) in this chapter for 
details. 


4, Data base change log records. 


SIZE OF MODULE - DLZURDBO 


This module contains approximately 35,000 bytes, including I/O areas. 


INTERFACES - DIZURDBO 
Normal Entry Points 


The cnly entry point to this module is DLZURDBO. 


R1 = pointer to fullword containing address of PCB 


All registers are restored to entry conditions. 
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MODULES CALLED EY DCLZURDRBO 

The DL/I open routine (DLZDLOCO) is called to open a specific ACB. 

R1 = pointer to PST 

The DL/I buffer handler (DLZC0BHO0) is called to retrieve and write a 
specific record, mark a buffer altered, and purge (rewrite) all altered 
buffers. 


R1 = pointer to PST 


The DL/I close routine (DLZDLOC0) is called to close a specific VSAM 
ACB. 


R1 = pointer to PST 
ERROR CCDES ANCL HANDLING - DLZURDRBO 


All codes are in the form of mesSages. The module DLZRDBMO centains all 
error messages issu2d by the Data Base Data Set Recovery Utility. 


The data base data set image ccpy utility module DLZ0DMP9 is executed as 
a standard DOS/VS application program and creates a backup copy of a 
specific data base data set. Input may be either a KSDS (HISAM, Simple 
HISAM, or HIDA® INDEX) or an ESS (HISAM, HIDAM, or HDAM). The output 
is used as input to the data base data set recovery utility. Processing 
is as follows: 


1. A control card is read from SYSIPT and preliminary validity checking 
is performed on various fields. The input card defines the data 
base/file to be dumped, the dump output symbclic filenames, and the 
number of output copies to be created. 


2. The device type is determined for ¢ach output file specified and the 
file(s) are opened. 


3. The DMB is loaded from a core image library to obtain the fhysical 
characteristics of the data base file to be dumped. 


4%, A header record is written to the output file. This record contains 
information necessary to allow the use of the image dump file by the 
data base data set recovery utility. 

5. The appropriate VSAM control blocks are generated for the file. 

6. The input file is opened. 

7. j%$Input segments are read sequentially, an 8-byte prefix is added to 
identify the segment, and the logical record (prefix + segment) is 
blocked and written to the output file. 


8. After all segments have been copied (EOF), the input and output 
files are closed. 


9. Output statistics for the file are written to SYSLST. 
10. Frocessing continues from step 1 until there are ne more input 


cards, at which time the rrogram terminates. 
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DESCRIPTION OF MODULE - DLZDMPMO 


Module DIZDMPMO is a read-only CSECT containing all the messages used by 
the [Tata Base Data Set Image Copy Utility. 


CCNTECL ELCCKS - DLZUDMPO 


e Dump record prefix 


°® Dump header record. 


SIZE OF MODULE - DLZUDMPO 


This module contains approximately 14,500 bytes, including I/0 areas. 


ERRCR CCDES AND HANDLING - DLZUDMPO 


All error codes are in the fcrm of messages. 


DATA BASE CHANGE ACCUMULATION UTILITY 


- 
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The Gata base change accumulaticn utility module DLZOUCUMO is executed as 
a standard DCS/VS application program. DLZUCUMO controls the overall 
operation of the Data Base Change Accumulation Utility by opening the 
log input DTF. If this is successful, the control card precessor module 
(DLZUCCTO) is called to read the input stream. Upon its return, the 
PROCFLAG switch is tested. If records are to ke passed te sort, the 
sort parameter list is formatted, including a sort Exit 15 (DLZ0C150) 
and the sort Exit 35 (DLZ0C350). The sert program is then loaded, and 
this module (DLZUCUMO) waits for it to terminate. Upon termination, a 
completion code is tested and appropriate messages are provided as 
cutput. If records are not to be sorted, that is, no DBO type control 
cards were read, the mcdule calls the Exit 15 module (DLZ0C150) to 
create the new log tape. 


DESCRIETICN OF MODULE - DLZU CERO 


This module is the ccmmon error routine. Control may be passed to it 
from any of the four processing modules, It addresses a message from 
the message module (DLZCUMMO), depending on parameters passed to it, and 
prints a message to the SYSLST device. If the passed parameters 
indicate a multi-part message, it does not write the message on the 
first entry. Instead, it passes the last-used position in the output 
buffer back to the caller to allow the caller to insert special data in 
the messages. On the seccnd entry to this routine, the message is 
written. 
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DESCRIPTION OF MODULE - DLZUCCTO 


This module is the control card processdr. It reads the ccntrol card 
input stream, checks the cards for validity, and constructs the data 
base name table and the date/time table if data base names are supplied. 


DESCRIETICN OF MODULE - DLZUC150 


This module is the sort Exit 15 routine. It reads the log input 
records, checks the purge date if applicable, and determines the 
disposition cf the record. If the record matches an entry in the data 
base name table, the date/time table is searched and the approrriate 
purge date and tire are ccmpared. If the record is before the purge 
date, the program returns to read another record. If the record is not 
purged, the routing is determined from the table and written either to 
¢ort or to the new log. A table of DME names and purge dates is 
prepared for Exit 35. 


DESCRIPTICN OF MODULE - DLZUC350 


This module is the sort Exit 35 routine. It receives all records from 
sort. If an old accumulated data set is supplied, a record is read from 
the data set and a record is retrieved from sort. The data base name 
and file identification of the records are compared, All input cum 
records are purge-checked according to the date/time, if any, specified 
on DBO card(s). If the old cum input is low, it is written to the new 
cum data set. If the records are equal, the data from the sort record 
is merced to the cld cum record, unless purged, and another record is 
obtained from sort. This sequence continues until an unequal condition 
is detected, at which point the record is written to the new cum data 
set. If the old cum is high, records from sort are combined and written 
to the new cum data set until the compare condition changes. This 
process continues until both the sort and the old cum records are 
exhatsted. 


DESCRIPTION OF MODULE - DLZCUMMO 


This module contains all messages issued by the Data Base Change 
Accumulation Utility. It is read only. 


CONTROL BLOCKS - DLZUCUOMO 

e Data kase name table, ccntaining the data base names and the address 
of the date/time table for this entry. 

e Data/tinre table 

e Accumulation header record 


® Accumulation record 
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SIZE OF MODULE - DLZUCUMO 


This module contains approximately 13,000 bytes, including I/0 areas. 


INTERFACES - CIZUCUMO 


Normal Entry _Foint 


The main entry point to this module is DLZUCUMO. DLZERRTN is an entry 
point used by DPLZUC150 cn any error condition. 


This is the main module which controls the overall operaticn of the Data 
Base Change Accumulation Utility program. 


Control information is passed from module to module by means of an 
externally referenced table ccntained in DLZUCUM. 


SIZE CF MODULE - CLZUCERO 

This module contains approximately 300 kytes. 
INTERFACES - DLZUCERO 

Normal Entry Peint 

The cnly entry to this module is DLZUCERO. 

This module is entered to output all error messages. 
Register Centents_on Entry 


R1 contains a message number in true form if a SYSLST message, and in 
corplement form if a write to SYSLOG. R2 is negative if this is a 
multi-part message. 


All registers are restored to entry conditions. 


SIZE OF MODULE - DLZUCCTO 


This module contains approximately 2500 bytes. 
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INTERFACES - DLZUCCTO 


Normal Entry Foint 


The only entry to this module is DLZUCCTO, 
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All registers are restored to entry conditions. 


SIZE OF MODULE - DLZUC 150 


This module contains approximately 62C00 bytes. 


INTERFACES - DLZ0C 150 


This module is entered at DLZUEX15 if no records are to be accumulated, 
and at DLZ29C150 ky sort. 


Entry Conditions 


This module is entered to read input logs and disperse records to new 
leg cr sort. R&1 centains the address cf the parameter list from sort or 
a dummy list if control was received from DLZUCUMO. 


All registers are restored. 


SIZE CF MODULE - DLZUC350 


This module contains approximately 29,000 tytes. 


INTERFACES - DLZ0C 350 


Normal Entry Pcint 


This module is entered at DLZUEX35 by sort. 
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All registers are restored to entry conditions, with the sort parameter 
list updated as needed. 


FRROR CODES AND HANDLING - DLZUCUMO, DLZUCTTO, DLZUC150, DLZUC350 


All error codes are in the form of messages and are issued via DLZUCERO. 
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The HISAM reorganization unload module DLZURULO is executed asa 
standard DOS/VS applicaticn program. A control card specifying the data 
base name, data set name, and output symbclic unit name is read. The 
DBD specified is leaded, and a short segment table is constructed. This 
table consists of the first eight bytes of each segment table entry in 
the CBD. This includes, among other things, the segment physical code 
and the segment length. The size of the prefix, as described for each 
segment type, is added to the segment length and entered in the table. 
This length is later used to move the segment from the input area to the 
cutput area. 


Next, the input and output data sets are opened. A header record 
containing infcrmaticn about the data base data sets is constructed, and 
a statistics record is written. The first KSDS record is then read and 
the root segment is checked to determine whether the deleted flag is on 
{no prefix if Simple HISAM). If it is on, the total segment chain for 
that root is ignored, and the next root is processed. If the root is 
not deleted, it is moved to the output area, and the first dependent 
segment, if present, is processed. If the devendent segment is not 
deleted, it is moved to the output area, and tke next segment is 
processed. This continues until the complete dependent segment chain 
for this root, including any overflow dependent segments cn the ESDS, 
have been processed. If the segment is deleted, each succeeding segment 
that is a child of the deleted segment is also deleted. The first 
segment that is not a child of the deleted segment causes the normal 
segment processing to be resumed. The last record written is a 
statistics record which includes information needed for audit trail. 

The output data set now ccntains the reorganized KSDS and ESDS logical 
records in physical sequential format (only KSDS if Simple HISAM). An 
image cf the KSDS record containing a root segment and dependent segment 
is fcllewed by images of the ESDS records containing overflow dependent 
segments for the root segment. A chain pointer in the KSDS contains the 
correct relative byte address of the next ESDS record containing 
overflow dependent segments. If more than one ESDS record is needed to 
contain overficw dependent segments, they follow in sequence and chain 
pointers are maintained in the records. 


Error message tandling is accomplished in the following manner: When a 
routine within sodule DLZURULO requires an errer message to he 
generated, a number is loaded into R81. This number corresronds to a 
message in the message CSECT (DLZROULMO). The routine then branches to a 
common routine which outputs the message. The number passed in R1 is 
Bultiplied by 4 and added to the start of the message CSECT (DLZRULMO). 
At that offset, a fullword containing the length of the message and the 
offset to the start of message text is obtained. These values are used 
to move the message to an output buffer. 


DESCRIPTION OF DLZRULMNO 


DLZRULMO is a read-only module containing all error messages issued by 
module DLZURULC. 
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CONTFOL BLOCKS - DLZURULO 


Short segment table 
Output data reccrd 
Output header record 
Statistics record. 


#$ee¢e6 


SIZE OF MODULE - DLZURULO 


The size of this module is approximately 20,500 bytes, including I/0 
areas. 


ERROR CODES AND HANDLING - DLZUROLO 


All error codes are in the form of error messages. 


SAMPLE DESCRIPTION OF HISAM REORGANIZEL FORMAT 


Assume a HISAM data base which consists of a single root segment and 
dependent segments in the hierarchical format shown in Figure 19.1. 


ROOT 
SEGMENT 


Figure 10.1. HISAM Data Base with One Root Segment 
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The input for the HISAM Reorganization Unload Utility appears as shown 
in Figure 10.2. 


KSDS RECORD 


SEG A SEG B SEG C 
ROOT SEGMENT (DELETED) (CHILD OF A) (CHILD OF A) fo 


ESDS RECORD 1 












SEG F 
(DELETED) 


ESDS RECORD 2 


SEG J 


Figure 10.2. Input for HISAM Reorganization Unload Utility 


Given this input, the HISAM Reorganization Unload Otility provides the 
output shown in Figure 10.3. 


HEADER RECORD 
INFORMATION ABOUT DATA BASE 


STATISTICS RECORD 
TOTSEG VALUE = 0 


DATA RECORD (KSDS) 





DATA RECORD 2 (ESDS) 


UNLOADED STATISTICS RECORD 


TOTSEG=NUMBER OF SEGMENTS UNLOADED FOR SEGMENT LEVEL 


Figure 10,3. HISAM Reorganization Unload Utility Output 


Note: A second ESDS record is unnecessary because space occupied by 
deleted segments is reclaimed. 


HISAM REORGANIZATICN REL. 


The HISAM reorganization reload module DLZURRLO is executed as a 
Standard DOS/VS applicaticn program and is used to reload a reorganized 
HISAM data base data set group. The input to the program consists of a 
reorganized dump of the key sequenced data set (KSDS) and entry 
sequenced data set (ESDS) created by tke HISAM Reorganization Unload 
Utility pregram. Precessing is as follows: 
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1. A control card, which contains the filename of the input file 
containing the HISAM data hase to he reloaded, is read, The input 
file is cpened and the header reccrd is read. 


2. The output KSDS and ESDS ACBs are generated using the information 
contained in the header record and the KSDS and ESDS are opened 
(only KSDS if Simple HISAM). 


3. The statistics record is read and the statistics table initialized. 


4. Records are read sequentially from the input file. These records 
are images of KSDS and ESDS records. 


5. KSDS records are written to the output KSDS using VSAM keyed 
sequential (mass) insert. 


6. ESDS logical records are written to the output ESDS using VSAM 
addressed sequential insert. 


7. after all data records have been processed, the last input 
Statistics reccrd is read, and a statistics report is printed, 
comparing segments unload2d/reloaded. 


8. The files are closed, 


DESCRIPTION OF DLZRRLMO 


DLZRRLMO is a read-only module containing all error messages issued hy 
module DLZURELO. 


CONTROL BLOCKS - DLZURRLO 


® Header record 
* Input data record 


SIZE OF MODULE - DLZURRLO 


This module contains approximately 15,7090 bytes, including I/C areas. 


The HD reorganization unload module DLZURGUO is executed under control 
of the DL/I system as an application program and is used to unload a 
data tase by issuing DL/I calls. One or two files may be created and 
cutput may be to tape or DASD. The module contains two processing modes 
~ "ncrmal" and "restart", 


Normal processing, after nodule DLZURGUO receives control from DL/I, is 
as fcllows: 


1. The PCE address is saved and a GSCL call is issued to obtain the PST 
address. The PST allows the program to access the DL/I control 
blocks needed to construct the prefix portion of the output record. 
This prefix, as described below, is used by the HD Reorganization 
Reload Utility. 
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7. 
8. 


10. 
11. 


The number of outputs (one or two) and otrtput device type (tape or 
DASD) are determined. 


Storage is obtained for the statistics table. 
Each output file is opened. 


The statistics tables, which have heen initialized for all data base 
segment types, are written to the output file(s). 


A Get Next (GN) call is issued for the first (or succeeding) 
segment. 


The statistics table for the segment type is updated. 


The secment is ccmbined with the segment prefix to form an output 
logical record. The output logical records are blocked and written. 


Whenever a checkpoint interval is reached (first root segment after 
5000 segments have been processed), a checkpoint record is written 
to the output file. The current statistics are part cf the 
checkpoint reccrd. To insure the checkpoint record is physically 
written, a dummy checkpoint is also written to output. Additionally 
a message containing the ID of the checkpoint record is written to 
SYSLOG, 


Procassing continues at step 6 until end of file is encountered. 


At end of file, the statistics table totals are written, the output 
file (s) is clesed, and the program returns control to DL/I. 


Restart prccessing, after module DLZURGUO receives control from DL/I, is 
as fcllows: 


1. 
2. 


Steps 1- 4 of "normal processing" are performed. 


The restart (RESTART) input file is opened. This is either the 
output1 (HIUNLD1) or output2 (HDUNLD2) file from the previcusly 
terminated job execution. 


A message is issued to SYSLOG requesting the checkpoint record 
number (ID) at which to restart. The number is validated. 


All records, including the requested checkpoint record, of the 
RESTART file are copied to the cutrput file(s). 


A Get Unique {GU) call is issued for the checkpointed root segment 
to establish positioning. If the RRA is available for the root 
segment, it is placed in the SSA with an internal "*T" command code; 
otherwise the segment's key is placed in the SSA and an internal 
"eC" (key retrieve) command code call is issued. The statistics 
table is initialized with the checkpointed statistics record. 


Steps 6 - 11 of "normal processing" are performed. 


DESCRIFTICN OF MCLULE - PLZRGUMO 


DLZRGUMO is a read-only mcedule containing all messages issued by the 
rodule DIZURGUO. 
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SIZE OF MONULE - DLZORGUO 


This module contains approximately 32,500 bytes, including I/O areas. 


CONTROL BLOCKS - DLZURGUO 


® Ovtput record containing segment prefix 
e SSA for GU call by RBA 

* SSA for GU call by key 

@ Output table record 


e Checkpoint record. 


INTERFACES - DLZURGUO 


This module interfaces with PL/I through the DL/I language interface 
nodule DLZLIO0CO at entry point CBLTDLI. 


ERROR CODES AND HANDLING - DL2URGUO 


All errors are indicated by error messages. 


The HD reorganization reload utility (DLZURGLO) is loaded under DL/T 
control as an application program. It reloads a data base under control 
of DIL/I. Input to the module consists of a sequential dump data set of 
logical records created by the HD reorganization unload utility 
(DLZURGUO). A logical record consists of a segment prefix and a 
segment. 


During the reload, a message is issued each time a checkpcint recerd is 
encountered (apprceximately every 5000 segments). This message is the 
Same in content and format as that issued during unload when the 
checkpoint record was created, and identifies the checkpoint by number. 
If the reload facility fails, a restart capability called ‘Reload 
Restart' allows restarting from a checkpoint record. 


After module DIZURGLO receives control from DL/I initialization, 
processing is as follows: 


1. The PCB address is saved, and a GSCD call is issued to obtain the 
PST address. 


Ze The input device type is determined and the data set is opened. 
3. If restarting, obtain checkpoint restart number from operator and 


locate checkpoint record. The data base is then positioned (GU 
call) and the end of data is found (GN calls). 
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4%. An input record is read (segment), and a DI/I call list is 
constructed. 


&. A DL/I Insert (ISRT) call is issued for the segment. 


6. After all segments have been processed, the last statistics table 
record is read and a comparative statistics report is written. 


7. %qThe input data set is closed, and the program returns control to 
DIL/I. 


DESCRIPTION OF MODULE - DLZRGLMO 


DIZRGLMO is a read-only module containing all messages issued hy the 
module DLZURGLC. 


BLOCKS AND TABLES 


Input record 


SIZE OF MODULE - DLZURGLO 
This module contains approximately 16,800 bytes, including I/O areas. 
INTEFFACES - CLLZURGLO 


This module interfaces with the DL/I routines through the DL/I language 
interface module DLZLI000 at entry pcint CBLTDLI. 


ERROR CODES ANC HANDLING - DLZURGLO 


All error conditions are indicated by error messages. 


LOGICAL _ RELATIONSHIP RESOLUTION 


ee EE A ED DS EE ES Sg SD A ED NS SED ED ED SED AD ED ED Sw me a 


DATA BASE PRERECRGANIZATION - DLZURPRO 


The purpose of this module is to examine input control cards provided by 
the user, and, based upon the information contained in DL/I centrol 
blocks, to generate a control data set for use by other programs 
concerned with the resolution of logical and index relationshifts. 


The input control cards for this program indicate the names of data 
bases that a user wishes to initially lcad or to reorganize, The 

control blecks for each segment of each data base listed on an input 
control card are examined. For each logical relationship in which a 
Segment participates, a prefix resolution check is performed. This 
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check ccnsists cf generating a bit map reflecting the prefix fields 
involved in the logical relationship, and then checking the bit map 
against a table that indicates the fields which must be resolved for the 
types of data bases in which the logical parent and the legical child 
reside. Fer purposes of the prefix resolution check, the type of data 
base is considered to mean an initially lcaded data base, a reorganized 
data kase, or ancther data base (not reorganized or loaded, but 
logically related to a data base that is reorganized cr loaded). If the 
bit map and the takle entry match yields a nonzero value, prefix fields 
must be resolved in either or both the logical parent and logical child. 


If prefix fields must be resolved, a ccntrol list entry is built for the 
logical parent and/or the logical child. This control list entry 
indicates the fields to be resolved, the work data set record format 
opticns to use, etc. 


After generating the control list, the data bases to be scanned, leaded, 
or reorganized are listed. The scan list is punched if requested. The 
control list is then written to the control data set. 


CONTFCL BLCCKS - DLZURPRO 


e Control file consisting of one or mere records, each with a pointer 
to the next block of control file and an area containing one or more 
centrol list entries. 


® List entry. 


e Seccndary list entry. 


The interface with the reorganization messag2 module ({DLZURGMO) is 
through the tables provided in that module. See the descripticn of that 
rodule for table fcrmat. 


The interface with batch initialization to load the required blocks 
dynamically is acccemplished with the DIZBLKLD macro. 


SE Ee ie a ager a i ee a Ee item ee eh ae Oe ee a i ee Se ee ae cine Da coe GE AE ibe ms a 


This program audits all input control cards and verifies the consistency 
of DIy/I control blocks, Any errors encountered cause one cr more 
messages to be generated. Refer to the 

IMS/VS_Messages_ and Codes Reference Manual for details. 


— nai “ _: — ie we eb a ee ee a: oe a a a a 
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TATA BASE SCAN - DLZURGSO 


This module searches one or more data tases for all segments that are 
involved in logical relaticnships. For each such segment, DLZORGSO 
generates one or more output records, depending upon the relationships 
in which that segment is invclved. The output work data set of this 
program serves as one of the inputs to the prefix resoluticn utility. 


This program scans data bases as indicated either by scan control cards 
or by the control data set generated by the prereorganization program. 
If scan control cards are present, they are checked for consistency with 
the DLyI ccecntrol blocks. Data base scanning is done by segment type for 
HDAM and HIDAM data bases, If scan control cards are provided for 
segments in an HDAM or a HIDAM data base, work data set records are 
generated only for those segments listed on scan ccntrol cards. 


After the segments are read into core, control is passed to the work 
data set generatcr mcdule (DLZDSEHO). DLZDSEHO generates any necessary 
cutput work data set records hased upon infcrmaticr contained in the 
control data set. It then returns control to this program (DLZURGSO). 


Module DLZURGSOQ interfaces with the reorganization message module 
{DLZURGMO) through the tables provided in that module. See the 
description cf that module for table fcrmat. 


The interface with the work data set generator nodule (DLZDSFHO) is as 
described in tte documentation for that module. 


The interface with the buffer handler module (DLZDBHOO0) is as described 
in the documentation for that module. The buffer handler module is used 
to directly access records in a data base. 


The interface with batch initialization to load the required blocks 
needed for precessing is accomplished with the DLZBLKLD macro. 


This program audits all input control cards and verifies the consistency 
of DL/I control blocks with the control data set, Any errers 
encountered cause one or more messages to be generated. Refer to the 
DLZI DOS/¥S Operator's Reference Manual and Messages and Codes. 


If an input card is read with "ABEND" in columns 1-5, a dump (FDUMP) 
will be taken if an error condition is detected. This shculd always be 
done on a rerun of this utility if an APAR is to be submitted because of 
an error return code. 
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WORK FILE GENERATOR - DLZDSEHO 


This module generates the work file records that are required to resolve 
logical and/or index relationships after one or more data bases have 
been initially loaded or reorganized. This program is used by the HD 
reload (DLZURGLO) and scan ({DLZURGSO) utility programs provided by DL/I 
DOS/VS. It is also called automatically by internal DL/I modules 
(DLZDDLEO and DLZDXMTO) when a data base is initially loaded by a user- 
written program. 


The general operation of this program consists of creating one or nore 
work file records for each segment that is initially loaded, reloaded, 
or scanned, if that segment is involved in at least one lIcgical or index 
relationship. The work file records reflect the new location of each 
segment and, if the data base is being reloaded, its o1d Iccation. Each 
work file record also contains related information that indicates the 
data bases and segments involved in the logical or index relaticnship 
éescribed by the record, their old peinter values, etc. 


This program generates all work file records that are used as input by 
the data kase prefix rescluticn module (DL2ZURG10). The format of each 
output record generated by this program (DLZDSEHO} is as described for 
input cf the data base prefix rescluticn module (DLZURG10). 


This module contains a CSECT which is also used by scan (DLZURGSO) and 
index maintenance (DLZDXMTO0) to open the work file DTF. Within this 
routine is a subroutine (FINDDTF) which is also used by scan to 
determine the correct DIF (disk or tape) to use for a given file 
depending on the assignment for it. 


DLZDSEHO is loaded by batch initialization when the PROCOPT is ‘load! or 
when HD relead or scan are to be executed. The primary entry point 
address is found in SCDDSEH9. The DI/Tt termination routine will close 
the work data set, 


The first seven fullwords of the CSECT contain information to be used by 
the modules which interface with DLZDSEHO. These words concern the work 
data set and entry points or addresses needed by scan (DLZURGSO). 


Displ. fror 
Entry Point 


DLZDSEHO Contents 
-28 Base address of this module 
-24 Address of LPLCSV - information needed by scan 
-20 Address of TEST - entry point when called by scan 
-16 Address of FINDDTF - a subroutine used by scan 
-12 Address of OPENWORK - entry point of routine 
to open WORKFIL file 
~8 Address of work area available to build output 
record 
“4 Address of opened work file DTF. 


If this field is zero, the file is not open. 
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When invoked during initial data base load or during data base 
reorganization, the following interface is used: 


Entry Point 


CLZBEGIN (Address found in SCDDSEHO) 


Register Contents 


R1 - 


Le 9] 
~ 

ww 
' 


Return to calling program with a return code in register 15. 


est 

Save area 

Return address 
Entry pcint address 


= Operation type (FUNCASRT or FUNCISRT) 


- SDB address 


The values 


are: 
0 (X*"O') = Successful completion 
yh (x'yty = WORKFIL could not be opened (IGN was specified). 
This is not an error condition if the user does not 
wish to create a work file. 
@ (xX*'8') = Sort field size exceeded 
12 (X'c!) = GETVIS error occurred 
16 (x'10') = Invalid DL/I control blocks 
20 (X'14') = Length of PCB key feedback area is zero 
24 (X'18*) = TyvO error occurred on WCORKFIL or CONTROL data set. 
28 (x'1C') = CCNTROL or WORKFIL data set could not be opened 


When the OPENWORK routine is called by scan (DLZURGSO) or index 


Maintenance (DIZDXMT0), the following interface is used: 


R14 - 
RIS: = 


(invalid or unassigned device) 


Caller's save area address 
Return address 
Entry point address. 
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Exit 

All registers are restored to entry condition. Return is made to the 
address in R14 plus the displacement 0 if an unknown or invalid device 
is specified or 4 if WORKFIL is successfully opened. 


When invoked during a data base scan, the following interface is used: 


R3 = Location for prefix parameter list area for segment just read 
R5 - Seccndary list entry 

R6 - PSDE 

R7 - SDB 

R9 = ECB 

R10 - PST 

R11 = Location of DTF for work data set (must be open) 

R12 - Base address for DLZDSEHO 

R13 - Save area for use by DLZDSEHO 

R15 - Entry point TEST 


Control Blocks 


ee oie ee A a wee SP ee = 


PSTWRK1 Byte O - Operation type (FONCIHPS) 
Byte 1-3 SDB address 


Exit 


Return to calling program with return code in register 15 
as for entry pcint DLZBEGIN. 


When the FINDDTF routine is invoked by scan, the following interface is 
used: 


RO - System logical unit number in hex 

R2 - Address of disk DTF 

R2 - Address of tape DTF (or 0, if not an option) 
R13 - Caller's save area address 

R14 - Return address 

R15 - Entry point of FINDDTF 
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Exit 


Register 15 - address of chosen DTF 

All ctker registers are restored to entry conditions. 

Return is made to the address in R14 plus the displacement 

0 if an unknown or invalid device specified or 

4 if successful completion. When error return to R14+0 is 
made, R15 is zero if IGN was specified, or nonzero otherwise. 


DATA BASE REORGANIZATION MESSAGE - DIZURGHO 


This module contains messages used by the following utilities: 
preorganizaticn (DLZURPRO), scan (DLZURGSO), prefix resolution 
(DLZURG10) , and prefix update (DLZURGPO). 

The module consists cf the two tables defined helow. 


Control Blecks_-_DLZURGNO 


e MESSAGE LENGTH AND OFFSET TABLE 


One 4-byte table entry exists for each message. Each 4-byte 
entry ccntains the message length and offset. 


* MESSAGE TABLE 


One variable-length entry is present for ¢ach message. Each entry 
contains the text of the message. The length is found in the 
message length and offset table. 


This module contains messages that are used by the following modules: 


DLZURPRO (prerecrganization) 
DIZURGSO (scan) 

DLZURG10 (prefix resclution) 
DLZURGPO (prefix update) 


ee se Te ee 


Not applicable 
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CATA BASE PREFIX RESOLUTION - DLZURG10 


This module accumulates the information generated on work data sets 
during the load and/or reorganization cf one or more data bases. It 
produces an output data set that contains the prefix information needed 
to complete the logical and/or index relationships defined for the data 
bkase(s). 


Operation of this program centers around at least one and possibly two, 
phases of the DOS Sort/Merge program execution. In the first phase, the 
SortsMerge program is attached by this program. All work data set 
records generated during data base initial load, reorganizaticn, or scan 
are input to tke scrt program. All input records are sorted such that 
all work data set records associated with a given occurrence of a 
logical parent fcllow the work data set record describing that logical 
parent. Cn exit from the first phase sort, this program has available 
the information needed to resclve the logical parent pointers that 
reside in logical children, the counter field and logical child pointers 
in tke logical parent, and the logical twin pointers in the logical 
child (if a sequence field is carried in the work data set record). Any 
unnecessary records are drepped before entering the second sort phase. 
The second phase of this program is not executed if only index 
relaticnships reed to be resolved. 


In the second phase of this program, the Sert/Merge program is again 
attached. In this sort execution, the output records from phase one are 
sorted according tc data base name and physical location within data 
base of each segment that must te updated by the prefix update program. 
On exit from tke second phase sort, any remaining logical twin pointers 
are resolved, and further accumulation of logical parent counter fields 
is performed. Any records not actually necessary to update a data base 
are dropped at this time. 


This program uses the control data set generated by the 
prereorganization program to govern its general operation. That is, the 
lists in the centrel data set indicate prefix fields to he resolved, 
etc. 


Control Bliccks - DLZURGIC 


> ae OS ee Se ae me ee ee 


® Input work file record - DLZURWF1 


® Output work file record - DLZURWF3 


SAS SD ALD AD NY Ee RD GS SN AD AN ED SND MN CNT A SOE SN EN IED AD ENS EA GD SR GD 


This program audits all input work data set records for consistency anda 
for correspondence with the control list provided with the control data 
set. Any errors encountered cause one or more messages to be generated. 
Refer to the DI/I DOS/ZVS Operator's Reference Manual and Messages and 


—_— ape wei ens ae he a ae ae eee oe an éo am 
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CATA BASE PREFIX UPDATE - DLZURG PO 


This module reads the input work data set provided by the data base 
Frefix resolution module, reads the data hase segment indicated by each 
record of the input work data set, and applies the prefix changes 
indicated by the work data set record to the segment read into main 
storage. 


The input work data set is sorted in data hase and segment physical 
location order by the data base prefix resolution module (DFSURG10) to 
afford most efficient update of each data base by this module. The 
format of each input record read by this program is as described for 
output of the data base prefix resolution nodule. 


One or more input work data set records may be present for each segment 
that participates in logical or index relaticnships. The records are 
successively applied to the prefix of each segment affected, and the 
updated segment is written to its storage device, The prefix fields 
updated by this pregram include tha logical parent, logical twin, and 
logical child pointer fields, and the counter fields associated with 
logical parents. 


Enterfaces_-_ DIZURGEO 


The interface with the reorganization message module (DLZURGMO) is 
through the tables provided in that module. See the descripticn of that 
rodule for table fcrmat. 


The interface with the language interface module (DLZLI000) is as 
described in tke dccumentation for that module. The DL/I “ISRT" and 
"GHU™ calls are issued by this progran. 


The interface with the buffer handler module (DLZDBHO0) is as described 
in the documentaticn for that module. The buffer handler module is used 
to directly access records in a data base. 


The interface with batch initialization to lcad the required blocks 
dynamically is acccmrlished with the DIZBLRLD macro. 


Error Codes and Handling -_DLZURGPO 


This program audits all input work data sat records for consistency with 
data base control blocks, checks all data hase update operaticns, and 
checks input centrcel card information. Any errors encountered cause one 
cr more messages to be generated. Refer to the DL/I DOS/VS Operator's 


Reference Manual apd Messages and Codes. te 
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The purpose of this chapter is to describe the DL/I partition in a batch 
environment and to illustrate the relationship of the control blocks 
described in the preceding chapter. 


TEE DL/T_BATCH PARTITION 


Figure 11.1 is a map of main storage in the DL/I DOS/VS hatch partition. 
Storage is allocated from the bottom or lewest storage address to the 
top or highest storage address of the partition. The eight areas in the 
DL/I batch partition are as follows: 


e Area 1 contains the DL/I nucleus. The SCD is the first control block 
in the nucleus and contains the DL/I copyright information. This 
block also contains the entry point address for every module in the 
DL/I system. The PST prefix, PST, and PSB directory (EIR) are in 
this area. There is one entry in the PSB directory (PDIR). 


® Area 2 contains the DL/I program request handler, DLZPRHBO, which is 
leaded durirg DL/I initialization. 


e Area 3 contains the PSB intent List and one DMB directory (DDIR) for 
each DMB referenced by the PSB. These blocks are created dynamically 
dtring DI/I initialization. 


e Area 4 contains the PSB and DMBs loaded from the DOS/VS Core Image 
Library by the DL/I Batch Initialization module. 


® Area 5 contains the DL/I buffer pecl control blocks. These blecks 
are created dynamically and are aligned on a 2K page boundary. There 
are one buffer pool prefix, one subpool information table for each 
subpool specified, one DMB subpool directory entry for each DMB, and 
32 buffer prefixes for each subpool specified. 


* Area 6 contains the DL/I I/O buffers which comprise the buffer pool. 
There are 32 buffers for each subpool specified. The buffer pool is 
also aligned on a 2K page boundary. 


*« Area 7 contains the DL/I logic modules. 


e Area & contains the user batch application progran. 


DLZT_CONTRCL BICCK RELATIONSHIP 


mead 


The purpose of this section is to show the relationships cf the various 
DL/I control biccks and provide a means by which the user can quickly 
find his way to these control blocks. The fcllowing discussicn 
references Figtre 11.2. 


The SCD is the major control block in the DL/I system It is located at 
the beginning cf the DL/I nucleus. The SCD contains DL/I copyright 
information, entry pcint addresses of the DL/I logic module, and address 
pointers to the major DL/I control blocks. 
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HIGH STORAGE 


LOCATION AREA 
a 








DL/! BATCH APPLICATION PROGRAM 8 


PAGE 
BOUNDARY 


> 
OPEN/CLOSE — DLZDLOCO SPACE MANAGEMENT — DLZDHDSO 
LOAD/INSERT — DLZDDLEO INDEX MAINTENANCE — DLZDXMTO 








DELETE/REPLACE — DLZDLDOO 


CALL ANALYZER — DLZDLAO00 DATA BASE LOGGER — DLZRDBLO 


| 
~ 


DL/I RETRIEVE — DLZDLROO 


COMMON BUFFER HANDLER — DLZDBHOO 

















BUFFER POOL (NOTE) 6 
PAGE . 
BOUNDARY 
—_——_————» 
BUFFER POOL CONTROL BLOCKS (NOTE) 5 
PAGEHL. VSAM CONTROL BLOCKS 
BOUNDARY ? 
DMB AND PSB POOL 
PSB INTENT LIST (NOTE) DMB DIRECTORY (NOTE) 3 
APPLICATION PROGRAM REQUEST HANDLER — DLZBPROO 2 
DL/I NUCLEUS — DLZBNUCO 
SCD — PST PREFIX — PST — PSB DIRECTORY 
LOW STORAGE 
LOCATION DLZRRCOO — OVERLAID BY DLZNUCO 
—_——_——_—_—_» 





NOTE: BLOCKS DYNAMICALLY CREATED OR FORMATTED 


Figure 11.1. Map of Main Storage in the DI/I Batch Partition 
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Figure 11.2 DI/I Control Block Relationships 


The following address pointers, shown below in parentheses, can be 
obtained from the SCD: 


e The buffer pocl prefix (xX'DC'), which is the first block of the 
buffer pool control blocks 


e he first PSB directory (X"E0') from which the first PSB and PSB 
intent list may be obtained. In a batch system, there is only one 
PSB directory. 


e The first DMB directory (X'E8'). There is one DMB directory for each 
DEB referenced by the PCBs. 


e The first PST prefix (X'FO') from which the first PST may be 
obtained. There is only one PST prefix in a batch systen. 


The PST, including the PST prefix, functionally relates the ccntrol 
blocks for DL/I and represents the batch or CICS/DOS/VS - DL/I online 
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task being served by DL/I. The PST is the dispatching block and is the 
only parameter passed when calling another module. The address of the 
PST is contained in the PST prefix (X'4*'). The following address 
pointers are available in the PST: 


e Caller's (user prcgram) parameter list (xX '48‘) 
*« SCD (X*44*) 

® PSB directory (X'58') for a Cask 

*® PpcB currently being accessed (X'80'") 


e I/0 buffer (X'AO') to be used for the data base call {used by the 
buffer handler) 


* Subpcol information table ({X'A4&') assigned to the data base (used by 
the buffer handler) 


e Buffer prefix (X'A8*") which points te the I/0 buffer containing the 
Segment for the call (used by the buffer handler) 


There is one PSB directory entry and one PSB for each program that may 
te accessed by DL/I. In a CICS/DOS/VS - DL/I online environment, the 
maximum is 2553; in batch, there can be only cne. The PSB directory 
contains address pcinters to the PSB (X'8') and the PSB intent list 
(X*14*). 


The FSB intent list is a variable-length ccntrel block and contains an 
entry for each DMB referenced by the PSB. Each entry contains the 
address of the DMB (X'0O'). 


The PSB contains prefix informaticn and one or more PCBs. Each PCB 
contains one JCB, one level table, and one or more SDBs. The PCB points 
to the JCB (X'10'). The JCB contains werking storage for the rrogram's 
use cf that data base and points to the level table ({xK'0'). The JCB 
also points to the SDB (x'8*) for the root segmert and the VSAM ACB 
(X*A4") for the data base (KSDS ACB if HISAM). The level table contains 
working storage for DLyvI to store its rositioning data for each level of 
the data base. The level table points tc the current level SDB (X'8*). 


The SDB describes the user's logical use of the sensitive segment. 
There is one SLB for each segment to which the user is sensitive. Fach 
STB points tc the corresponding PSDB (X'14") in the DMB. 


The DMB directory contains the address of the DMB (X'8"'). Each DMB 
contains a prefix, one ACB extension for each data set in the DMB (two 
if HISAM), one PSDB for each physical segment type, and one FDB for each 
field defined for a segment. In addition, there is one direct algorithn 
communication table (DMBDACS) if HDAM is used, and secondary list 
entries if HIDAM or HDAM with index or criginal relationshirs is used. 


The [MB prefix ccntains: 
e A two-byte relative offset to the first PSDP (X*"'2*) 
* A two-byte relative offset to the end of the last PSDB+1 (x'U'), 
— is either the first secondary list entry (HIDAM) or the first 
e® A four-byte pointer to DMELACS if HAIAM (X'C*) 
The ACB extension contains information about the data set as well as an 


address pointer to the VSAM ACB and RPI for the data set. 
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Each PSDB contains: 
® A pointer to the first FDB (X'10') for the segment 


* A pointer to the SDB (X'14') for the active PCB which is sensitive to 
this segment type. If more than one PCB is sensitive to this segment 
type, tte address of the SDB for the next PCB is contained in the 
active PSDB (X*10"). 


The DMBDACS contains the address of the user's randcmizing routine 
(X°08'); most cf the secondary list entries point to the DMB directory 
(X'04"') for the described index or logically related data base. 


The follcwing items may be obtained from the buffer pool prefix: 


e The first subpeel informaticn table (immediately following the buffer 
pool prefix (X'88*)) 


e An address pointer to the first buffer prefix (X'80') 


e An address pointer to the first DMB subpool directory entry (X'84") 


The buffer prefix contains an address pointer to the I/O buffer (X'C*) 
which it references. 


A skeleton DMB is created at DBDGEN time as part of the DBD. The DMB 
consists primarily of a description of each segment contained in the 
data kase and information concerning the physical data base description. 
This is contained in ACB extensions or, in the case of HSAM, in DTFs. 
The [BD is loaded into storage by the DL/I application control blocks 
creation and maintenance utility, which builds the DMB from the DBD 
created by [CBDGEN. The DMB is then cataloged and link edited into a 
core image library. The DMB is moved to its execution-time location in 
the DMB pool by the application control blecks load and relocate module 
{DLZCBLM0). 


The DMB consists of a prefix section containing primarily offsets to 
subsections of the DMB: a prefix saction (ACB extension) for each data 
set (DMBACBXT), a direct algorithm communicaticn table (DMBDACS) if 
HDAM, the descripticn of gach segment (DMBPSDB), a secondary list to 
describe indexed fields or logical relationships (DMBSEC), field 
description blocks (FEBs) describing each field in gach segment, a 
compression CSECT (DMBCPAC) for each compressable segment, and an index 
parameters CSECT (DMBXMPRM) for each secondary index exit routine. 


For a HISAM organization, there is a pair of ACB extensions for each 
data base, for a KSDS ACB and an ESDS ACB. If the data base contains 
cnly root segments, only the KSDS ACB extension is created. 


The ACBs are generated when the blocks are loaded for execution by 
DIZDBLMO from the information in the ACB extensions. 
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e DMB LAYOUT 


GENERAL STRUCTURE: 


 soeneen eehenahenempenentnaneeemeemtantnenemnmmemneameratentantmemiemmtemeemenentememmeents | 


1 
1 PREFIX SECTION OF DMB 


DMBACBXT SECTION FOR EACH DATA 
SET (1 OR 2) 

(DIF IF SHSAM OR HSAM FOR INPUT 
AND OUTPUT FILE) 


DMETACS SECTION IF HDAM 


ORDO BOBO SHO BOQ SFOS ZeweBDaeanhan Dasa nwe @ wo 


ih a en OE a ee gees one ee OO ge, ee Om one 


DMBCPAC - COMPRESSION CSECT | 


wean an ent eee eww a ae Sweaeweeoe nena asa aewtaeawa eae 


MAINTENANCE PARAMETERS 


—- ae eth wap 


DMBPSDB SECTION FOR FACH SEGMENT | 


DMBSEC SECTION IF INDEXING OR 
LOGICAL RELATIONSHIPS 


FEB SECTION FOR EACH SEGMENT 
FIELD 


{ 
} 
! 
1 
| 
i 
{ 
| 
{ 
1 
{ 
1 
{ 
I 
1 
{ 
{ DMBXMPRM - INDEX 
! 
i 
{ 
| 
1 
1 
| 
{ 
| 
| 
| 
| 
| 
| 
1 
{ 
I 


OR HSAM 
| 


a ep A ce el OD ee ay am Oe, 


1 
1 TAPE OR DASD I/0 MODULE IF SHSAM 
| 


Se A RD A a ca see ee ee ee apace 





TAPE OR DASD IyvO MODULE IF SHSAM OR HSA 


This module is included by the applicaticn control blocks creation and 
maintenance utility. 
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ae Gane Cony Saree ee cae ee AD A Se ED EN EY MEY OD ED AD ES ATT AD AND ED SO ED SD 


The 
man 


DL/I buffer pool control blocks provide the control informaticn to 
ace the entire buffer pool for the DL/I task. The buffer pool 


control blocks are as follows: 


384 


Buffer Pool Centrol Block Prefix - DLZBFPL - This control hlock 
contains the statistics and other ccntrol information for the entire 
buffer rool. 


Subpool Infcrmation Table - DLZSBIF - This control block contains 
information for a specific subpool, including the size cf the buffers 
in the subpool. There is one subpool information table for each 
subpool allocated. 


DMB Subrool Directory - This contre] block contains a one-byte 
subpool number relative to zero for each HDAM or HIDAM data base 
allocated. The DMB sequence number is used as an offset into the DMB 
directory and allows a DMB to be identified with a specific subpool. 


Buffer Prefix Control Block - DLZBFFR - This contrel blecck contains 
key informaticn about the contents of a specific buffer in a subpool. 
There is one buffer prefix control block for each buffer. Each 
subpool contains 32 buffers. 
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GENERAL STRUCTURE: 


BUFFER POOL CONTROL 


BLOCK PREFIX - CLZBFPL 


| 
| 


ee ooo 


SUBPOOL INFORMATION TABLE 


DLZSBIF - ONE PER SUBPOOL 


RA AS A I AOR EN ee MER SD SAE i SE SO a A A EE a A ET ET 


et ee eA came ce Stein: me iy ee AD mcm wah ect SOR eto ch co 





DMB SUBPOOL DIRECTORY 


CNE PER DATA SET 


OS se EE EE NS ES NS NS RS SS YA A ES eS SR SA OND a a 


as @ e e ae “sath OD ey OO oo me oO e e ee eel el dl ee 





] a ee ee a a NS A SD Se a A ce se a ee 


| BUFFER PREFIX - DLZBFFR 


| ONE PER BUFFER (32 PER SUBPOOL) 


|---—--_--___- --—_-- ---——----- —_ -—__ -——--- 





| 
| 
| 


=a @ a a ae ae e ems onl cee i ee OP ee So 8 em we on Ow ae oe oe Ow aoe OF So aoe 2 ee OO em OE eee oe ewe 28 oe om coe 


I/O BUFFERS 


(32 PER SUBPOCL) 


rm © s OT ee ee ee e e 
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A PSB must be created for every user program which will run under DL/I 
control. The PSB is created in "skeleton" format (principally PCBs 
cnly) by PSBGEX. The PSB must be catalceged and link edited into the 
Core Image Library. The PSB is loaded into main storage by the DL/I 
Application Control Blocks Creation and Maintenance Utility program and 
expanded and ccmpleted by this utility. The expansion is performed by 
segment definition in the DBD representing the associated data base. 
The expanded PSE is link edited into the Core Image Library. The PSB is 
moved to its execution-time location in the FSB pool by the application 
control blocks load and relocate module (DLZDBLMN0). In expanded final 
format, the PSB ccnsists of the following parts in the order specified: 


1. PSB prefix - of which the most important part is the variable-length 
PSB list: the address list of the PCBs in the PSB. 


ze A wariable number of data base PCBs. For each data base PCB there 
is a JCB (job control block) consisting of the following parts: 


ae JCB prefix 


b. DSG (data set group) table. This table contains entries 
describing the data bases specifically used for this PCB. There 
are entries for all logically ccnnected data bases, all primary 
HIDAM indexes, and a secondary index if used as the processing 
sequence. 


c. Level table. This table provides memory of the last DL/I CALL. 

d. SDB (segment description block). This block contains an entry 
for each segment to which the user has declared himself sensitive 
in the PCB, The SDB entry describes the sensitive segment, 


e. Work area for index maintenance, variable-length segment support, 
or miscellaneous function. These are allocated only when 
required. 
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* PSB LAYOUT 


GENERAL STRUCTORE: 


errr. ee ee SEE TS NN UA AS NNR 


{ PSB PREFIX (INCL PCB PCINTERS) i 
! i 
Pon eee 

CB-PCB1 GROUP {| DBPCB DOPE VECTORS (IF PL/I) 1 
i 
Tee mruscia canemsincii eine aa alent ine cia on=-f 
1 DBPCB ! 
| pe eseas eo nanr betas ee saa reanseeees mae aseeess eee ! 
} JCB PREFIX 


ADDITIONAL } AS SHOWN ABOVE 
USER PCB GROUPS| ADDITIONAL USER PCB GROUPS 


' 
' 
(] 
1 
‘ 
' 
' 
' 
4 
t 
' 
' 
' 
' 
' 
' 
' 
' 
t 
' 
( 
t 
‘ 
i) 
' 
‘ 
‘ 
‘ 
i 
' 
' 
' 
t 
t 
t 
i 
‘ 
' 
‘ 
1 
‘ 
i] 
i) 
' 
' 
i 
‘ 


{ INDEX MAINTENANCE PCB (IF REQUIRED) 


| PSB WORK AREA 
| 


Le 


= 





eras ee Ne re Se CES I SRT ES TOI AS SY EY EY OE SH 


INDEX MAINTENANCE ECB 

Required if any user PCB directly or indirectly refers to an 
index data base, 

PSB WORK AREAS 


These areas are of variable length depending on the requirements 
ef the PCBs. 
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This section provides field descriptions for each control block used in the 


DL/I systen. 


The control blocks are documented in alphabetical order as listed 


under Chapter 12 in the Contents of this publication. 


The ACB extension is described in Chapter 11 as part of the general 
structure and description of the DMB. The information in ACBXT is 
repeated for each data set in the DMB. 


Hex 
0 


a ON 


10 


V4 


18 


1c 
1E 
1F 
20 
22 
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Dec 


0 
4 


oo eno 2) 


10 


12 


1€ 


20 


24 


2é 


30 


32 
34 


Name 


DMBACEAL 


DMBCINY 
DMBACBDL 


DMBACBAE 


DMBACBM X 


DMBACBMN 


DMBECB 


DMBHIBLK 


DMBRBASN 


DMBRIBLK 


DMBCICYL 
DMBCITRK 
DMBKEYLE 
DMEBRKFE 


DMBOFLGS 


Address of ACB for data set 
Contrel interval size 
Delta cylinders to scan 


Number of rcot anchor points 
in each control interval (HDAM) 


Length cf largest segment stored 
in data set 


Length cf smallest segment stored 
in data set 


VSAM ACB event control block (ECB) used 
by buffer handler (DLZDBHOO) 


Highest control interval RBA 

RPA of last logical record assigned 
(HISAM) or relative block number of last 
control interval assigned (HD) 


Relative block number of last control 
interval written (HD); unused for HISAM 


Number cf control intervals per cylinder 
Number of control intervals per track 
Key length of KSDS 

Relative key position (offset) 


Open flags 


{es 


Qu Meaning 


x'4Q! IGN was specified for 
WORKFIL on load 


DMBNUSE x20! ACB does not have resolved 
secondary index entries, 
WORKFIL must be used 

DMBOPEN x? 10° The correspending ACB is 


open 
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DMBPUTKY x? oat Simulate not load mode to 
VSAM (used by XMT) 


See Chapter 5 for the layout and field descriptions of the ACT. 
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23. «35 DMB VSFLG 1 Flags 
Name EQU Meaning 
DMBCISPL x'80? Control interval split 
has occurred 
DMBPSEQ X*10! Sequence processing is 
possible for this KSDS 
24 36 4 Re served 
28 40 DMBVSBFR 2 Number of buffers to he used 
2A 0 42 DMBLRECL 2 Data set record length 
2c 44 DMBEFACT 2 Data set blecking factor 
2E 46 DMBINDO 1 Permanent indicators 
Name EQU Meaning 
DMB KEY X*80° File contains keys 
{Simple HISAM and HISAM) 
DMB WCHK x'O8? Write check option 
30 48 DMBSPLCT 4 Control interval split count 
24 52 DMBACBRP 4 Address of EPL for this ACB 
38 56 DMBACBLC 2 Log count (HISAM only) 
3A 58 Reserved 2 Reserved for future use 
3c 60 DMBACBNM 8 Data set name as in ACB 
4y 68 DMBACBEX 4 Address of exit list for 
corresponding ACB 
48 72 8 Reserved 
Note: For HSAM DMBs, the ACB extension is eight bytes in length as 
follows: 
0 0 DMBITFIN 4 Address of HSAM input DTP 
4 4 DMBDTFOCT 4 Address of HSAM output DTF 
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This information is in the BPC task transaction work area, 


iw 
0 


4 


TWAMPCPT 


TWABPCID 


3 
1 


Name 


TWAB 


Description 
BPC flag byte 
EQu 
X*8o? 


Meaning 
PCOK BPC abnormal termination 
Address of MPC partition table 


Batch partiticn identifier (F1, F2,...) 


The BFPL is described in Chapter 11 as part of the general structure and 
description cf DL/I buffer pocl control blocks. 


Hex 


0 

4 
10 
14 
18 
1c 
20 
24 
28 
2c 
30 
34 
38 


3c 


3D 


3E 
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Dec Name 

0 BFPLID 

4 

16 BFPLROCT 
20 BFPLINPL 
24 BFPLRDCT 
28 BFPLALTIR 
32 BFFICSHT 
36 BFPLBKWT 
4&0 BFPLNWBK 
44 BFPLCHWT 
48 BFPICHBK 
eZ BFPLISTL 
56 BFFLIGET 
€0 BFPLWERR 
61 BFPLWERT 
€2 BFPLCOUT 


La 


4 
12 


= 


- F 


Description 


Pool ID - BFPL 
Reserved 
Number of klock requests received 
Number of requests satisfied from pool 
Number of read requests issued 

Number of alterations received 

Number of writes issued 

Number cf blocks written 

New blocks created in pool 

Number of chained writes issued 
Number of blocks written on write chain 
Number cf retrieves by key calls 
Number of GN calls received 


Number of permanent write error buffers 
in pool 


Largest number of write error buffers 
ever in pocl 


Number cf rows/cols. in matrix currently 
in use 
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3F 


40 


44 


48 
58 
68 
78 


TC 
TE 


80 
84 


| 88 


63 


64 


68 


72 

88 
104 
120 
124 


126 


128 
132 


136 


BFPLROCO 


BFPLNQW1 


BFELNOW2 


BFELINMA 
BFPLINW1 
BFPLINW2 
BFPLIPSTI1 


BFPLPSIF 
BFPEIPSIL 


BFPLPRAD 


BFPLSUBD 


BFPLSUIN 


16 
16 
16 


Mask showing available rows/cols. in 


matrix 


ENQ/DEQ work area 1 


- pointer to 


DLZSBIF 
Na me EQu Meaning 
BFPLEXCI x? oo* Switch 
BFPLPECI x'oae Switch 
BFPLSUPO x*08? Switch 

ENO/DEQ work area 2 
Nape EQU Meaning 
BFPLSWO00 x*coe Switch 
BFPLSW80 xX*80°8 Switch 


Interlock detection matrix 
Interlock detection work area 1 
Interlock detection work area 2 
Field 1 for pseudo interlock 


PST prefix number of first waiting for 
matrix 


PST prefix number of last waiting fer 
matrix 


Address of beginning of buffer prefix area 


Address of beginning of DMB subpool 
directory 


Start of subpool information tables 
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b> >a) 


10 
12 
43 
14 
14 
18 
1A 


1B 


1c 


1E 
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BFFR is described in 


n £& Oo 89 


~~ 


10 
12 
13 
16 
18 
19 
20 
20 
24 


27 


28 


30 
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Name 
BFFRCIID 
BFFRCIRB 
BFFRDMB 
BFFEECE 


BFFESW 


BFFRP STF 


BFPEESTL 


BFFRLOGO 
BFFRUSCT 


BFFRADCR 


BFFEOSID | 


BFFRWCFW 
BFFRWCBW 
BFFENCID 
BFERSNCII 
BFFRNDMB 
BFFRNACB 


BFFESW1 


BFFRNPSF 


BFFENPSL 


Chapter 11 as part of the general structure 
descripticn of the DL/I buffer pool control blocks. 


Description 
Control interval identifier (CI ID) 


Control interval RBA 


DMB number 

ACB number 

Switches 
Name Bit Heaning 
BFFRWCH 0 Buffer on write chain 
BFFRWRT 4 Buffer being written 
BFFRREAD 2 Buffer being read 
BFFRMT 3 Buffer empty 
BFFRWERR 5 Buffer has permanent 

write error 

BFFREXNQ 6 Existing CI ID enqueued 
BF FRPNNO 7 Pending CI ID enqueued 


~J 


bet 


PST pointer of controlling task 


PST pointer of last task in chain 
of waiting tasks 


Leg count 

Use count 

Address of buffer 

ID of user who altered this buffer 
Next lower buffer on write chain 
Next higher buffer on write chain 
New CI ID 

New CI RBA 

New DMB number 
New ACB number 
Switches 


Buffer must not be reused 
Not used 


PST pointer of task which FNQ'@ on new 
CI ID and is first in chain 


PST pointer of task which ENQ'd on new 
CI ID and is last in chain 
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COMPRESSION CS ECT_=_CPAC 


The CPAC is described in Chapter 11 as part of the general structure and 
description of the DMB. 
segment in the DME. 


Hex Dec 
0 0 

8 8 
10 16 
14 20 
15 21 
16 22 
18 «24 
1A 626 


28 


Name 
DMBCPCNS 
DMBCPCSG 


DMBCPEP 


DA BCPFLG 


DMNBCPS QF 
DMBCPSQL 
DMBCPSGL 
DMBCPELNG 


DMBCPRES 


Ln 
8 


e 


& NY % WN 


There is one entry for each compressible 


Description 
Segment name 
Compression routine name 


Entry pcint address of 
compression routine 


Flag 

Name FOU Meaning 

DMBCPSEQ x*Os8t Segment has a sequence 
field 

DMBCPVLR X"'Oyt Segment is variable length 

DMBCPNIT x*o1!' Initialization and 
termination processing 
required 


Length of key field -1 
Offset tc sequence field 
Maximum segment length 
Length cf CSECT 


Used by batch initialization 
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The data base description block (DBD) is the result 


of each data base generation. 
® DIAGRAM OF DEDGEN CONTROL BLOCK OUTPOT 
GENERAL STRUCTURE: 


DIRECTORY 


PREFIX 


DMANTAB 





SEGTAB 


FLOTAB 


TED LE OIE ET EY AL ED TAS AS A A A ED EN HD 


EXTDBD 


| 
| 
| 


LCHILD 


SORTAB 


| 
| 
| 


IN DXTAB 


DACT 
(Same as DMB) 


A AP CS RS CER OY ATE OE SAME AE ENE a SR ta en OS 


(same as DMB) 


| 


INDEX EXIT CSECTS 
{same as DMB) 


Dee hn tee ined me ei ee eed one ee ee Sel ed el ee ee ee ed ed ee 


ere cers ee cre ee 


ACB EXTENSION (SAME AS LDMB) 
(If HSAM or SSAM, DTFs) 


Scere tpeeeesteetbiaenbadieorenanenineieenadnsennmsanaenmmentetenmndtanemeatmemdinemedamammmmimmenemtamenmaotzenteaaatee temmmtnieameant 


SS TS SD A SD CO RS nS SS nD SONIC sents ear 


AT A EE SR a GS SAL ep OR 


COMPRESSION EXIT CSECTS 


AAO SRS DN OED A SY AC ET 


a a | 


EWR cite SONORA AER OEMS SAAR SES ret ADD TAA AE Er AIG SrA ATRIOS Ae APONR EES eNO AE a 


Caer ee ate ie hn ne ee Rene ee ee ee ed Ee ee ee ee ee ee 


| 


: 
| 


| 
| 
| 
: 
| 
| 
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1. 


DIRECTORY LAYOUT 


Hex Dec 


0 


Hex 


0 
8 


10 
18 
1A 
1c 


20 


0 


12 
16 
20 
24 
28 
32 


PREFIX 


Dec 


0 
8 
10 
12 


13 
14 
16 
24 
26 
28 
32 


APREFIX 
ASEGTAB 
AFLOITAE 
ALCHILD 
AEXTDBD 
ASORTAB 
ARMVTAE 
AINDXTAB 


ADSGCB 


LAYOOT 
Name 
PREDBDNM 
PRENOLEV 
PRENOSEG 


PREACCES 


PRENODSG 
PRENODBD 
PRERNDA 
PRENOLCH 
PREAP 
DBDPFRBN 


DEDPFBYT 


tr 
le 


Ww 


& ss & & F fF F F& 


Nu NY ®© WN 


Nase 


PRES 
PREI 


PRE SSAM 


PREH 
PREH 
PRE 
PREN 


Description 
level (x'00'=1.0, 
X'11"=1, 1) 


Address of PREFIX 


Address of SEGTAB 


Address of FLDTAB 


Address of LCHILD 


Address of EXTDBD 


Address of SORTAB 


Address of DMBLACS 


Address of INDXTAB 


Address of ACB extension 


CBD name 

Number cf levels in data base 
Number cf segments 
Organization 


EOU Meaning 
x01" 
x'02! 
X'048 
SAM x' O05! 
D K'06! 
I x'o7?# 
DEX x?08° 


HTS 
SAM1 


Simple HISAM 
HISAM 

Simple HSAM 
HSAM 

ADAM 

HIDAS 

INDEX 


Number of data sets 
Number of externally referenced data bases 


Randomizing algorithm name 


Number cf logical children 


Number cf root anchor points 
Maximum relative block number (HD) 


Maximum bytes in prime area (HD) 
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3 


~~ @ 


i= 
im 
isd 


o so 


10 
12 
14 
16 
18 
1A 
1c 
1E 


20 


see 


in 
~ © 


396 


De 


OQ 


ny dod oo 


1 
13 
14 
16 
18 
20 
22 
24 
26 
28 
30 


32 


j 
Qa 4 


ond 


ND 


12 


DMANTAB LAYOUT 


Name 
PRECD1 
PREDEV1 


PREID 


PRENSGA 


PREDELTA 


PRELSL 
PRE SSL 
PRELKL 


PRESKL 


PRELRECL 
PREBLKSZ 
PREOLREC 


PRECBLKS 


PREDD2 


ACB EXTENSION 
WACB Extension 
SEGTAB LAYOUT 


of these tables exists for 


Name 


SEGDSNO 


SEGPHYCD 
SEGPARPC 
SEGLEVEL 
SEGNCLCH 


SEGNOFLD 


SEGLENG 


SEGFREQ 


SEG SEGNM 


nN nN WN i) tS No N 


hN 


© 


Input or prime filename 

Device type 

Data set group ID 

Number of segments in data set 

Delta scan cylinders (HD) 

Length cf longest segment plus prefix 


Length of shortest segment plus prefix 


Length cf longest key 


Length cf shortest key 

Prime/input record length 

Primeyvinput block size (control interval) 
ESDS/output record length 

ESDS/output block size {control interval) 


ESDS/output filename 


each segment. 


Segment data set number 
Segment code 

Parent segment code 
Segment level 

Number of logical children 
Number cf fields 


Segment data length (maximum length 
if variable length segment) 


Reserved 


Segment name 
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14 


15 


16 


17 


18, 
ic 
1E 
20 
24 
26 


28 


20 


21 


SEGFLG1 


SEGFLG2 


SEGFLG3 


SEGFLGY 


SEGLCHLD 
DBDSSN 

CRDSSOFF 
SEGFLDTB 
DBDSPFS2Z 


SEGLENGYV 


Reserved 


1 


4 


Prefix pointer flag 


EQU 


x*80° 
X*4o't 
x*20! 
Xx? 10% 
x*08" 
X'OQ4! 
x'02' 
x'ot' 


Meaning 


Counter 

Physical twin forward 
Physical twin backward 
Physical parent 
Logical twin forward 
Logical twin backward 
Logical parent 
Hierarchical 


Segment update rules 


EQU 


X' co? 
x?80° 
x*4o' 


x'308 
x*20° 
x* 10! 


x*oc? 
x'oat 
x'ou' 


X'03! 
x02! 
x'O1 


x'os! 


Insert rule 
Logical 
Physical 
Virtual 

Delete rule 
Logical 
Physical 
Virtual 


Replace rule 
Logical 
Physical 
Virtual 


Physical location of inserts, when 
no key field 

Here (current position) 

First 

Last 


Parent has tackward pointers to 
this segment 


Number of physical children pointed 
to directly by this seqment 


Offset to first LCHILD entry 


Number cf source segments 


Offset to first source segment 


offset tc first FLDTAB 


Segment prefix size 


Minimum segment length 
(0 if fixed length) 


Reserved 
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2c 4y SEGEACOP 1 VL-Compression options 


Name EQU Meaning 
SEGCPRT x'08! Segnent has compression 
routine 


SEGTYPVL x'ou? Segraent is variable length 
SEGPACIT xtote Initialization exit 
requested for compression 


routine 
2D 5 SEGPACRITI 3 Address of compression table 
6. FLDTAB LAYCUT 
Hex Dec Name Ln Description 
0 0 FLDNAME 8 Field name 
8 8 FLDSTART 2 Start pesition offset 
A 10 FLDFLAG 1 
EQu Meaning 
x' sort Last field for a SEGTAB 
x*40' Sequence field 
x20" Multiple sequence fields 
x*10! Special FDB 
Field type 
x'o1? Hexadecimal 
x*o2t Packed 
K'Q3! Character 
B 11 FLDLEN 1 Field length 
Cc 12 FLDSNAME 8 Source field name 
14 20 FLDSEGTB 4 Pointer to SEGTAB entry 


7. j.|EXTDBD LAYOUT 


Hex Dec Name Ln Description 
0 0 EXTIBNM 8 Externally referenced data base name 
8 8 EXTRSVD 4 Reserved 
8. LCHDTAB LAYOUT 
Hex Dec Name in Description 
0 0 LCHSEG NM 8 Segment name 
8 8 LCHCODE 1 
Bit Meaning 
0=9 LCHEDBD address is a EXTDBD entry 
0=1 LCHEDBD address is a SEGTAB entry 
ya Reserved 
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9 9 LCHEDBD 3 Offset to EXTDBD or SEGTAB entry 


Cc 12 LCHFLAG 1 
EQU Nea ning 
x*'8sor Last entry for a SEGTAB 
x"4or Reserved 
x* 20! INDEX entry 
x" 10° Reserved 
x*'ost LP definition 
K' QM? INDEX pointer 
xX*0Q2° SNGL peinter 
x'o1' DBLE pointer 
D 13 LCHIBYTE 1 Reserved 
E 4 LCHERDSG 2 Offset to paired segment 
10 16 LCHFLDNM 8 Indexed field name 
9. SORTAB LAYOUT 
Hex Dec Name Ln Description 
0 DBDSCRNM 8 Source segment name 
8 8 DBDSSFLG 1 Source segment flag - raserved 
9 9 DBDSSDBO 3 offset to data base entry 


10. <INDXTAB 


See "Secondary List - SEC (Codes 64, 44, 40, 24, 20, O04)". 


11. DACT 


See "Direct Algorithm Communication Takle - DACT", 


12. COMPRESSION EXIT CSECTS 


See "Compressicn CSECT - CPAC", 


DATA MANAGEMENT BLCCK (PREFIX) -_ DMB 


The DMB prefix is described in Chapter 11 as part of the general 
structure and description of the data management block. 


Hex Bec Name Ln Description 
0 0 DMBSIZE 2 DMB size (Zero bit on (X'80') means 
version 1.1 or later) 
2 2 DMBLENTB 2 Offset from DMB to first PSDB (DMBPSDB) 
4 i) DM BSECTB 2 Offset from DMB tc end of last PSDB+1 
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6 6 DMBORG 1 DMB organization 


Name Fou Meaning 
DMBSHIS x'o1? Simple HISAM 
DM BISAM1 X*02" HISAM 
DMBSSAM X'oyrt Simple HSAM 
DMBHS AM x'Q5? HSAM 
DMBHD x'06* HDAM 
DM BHI X'O7! HIDAMS 
DMBNDEX x*08! Index data base 
7 7 DMEBLODCB 1 ACB numter sinus one of sequential 


data set used to write index 
records on data base load 


8 8 DMBEDATA 2 Length cf system data in this 
index data base (protected) 

A 10 2 Reserved 

c 12 DMBCALGR 4 Address of direct algorithm 


communication table if HDAM (DMBDACS) 


The DMB directcry contains an entry for every data base known to DL/I, 
that is, an entry for every DMB (Data Management Block) that can be 
accessed under DL/I control. The DMB directory is part of the DL/I 
nucleus and is created at DL/I system definiticn time for cnline 
processing. Tte start address of the directory (SCDDLIDS) and entry 
length (SCDDLIDL) are contained in the SCD. 


Hex Dec Name Ln Description 
0 0 DDIRSYM 8 DMB symbolic name converted fror 
DBD name 
8 8 DDIRADDR 4 Storage address of DMB 
Cc 12 DDIRCNT 1 count of number of users scheduled 
to this DMB 
D 13 DDI RDMBL 3 Total length of DMB 
10 16 DDIENUMB 2 IMB numter of this DMB 
12 18 DDIRCODE 1 DMB code byte 1 
Name EQU Meaning 
DDIRSECL x*'80?* Security locked 
DDNIROPEN x'4or At least one ACB is opened 
DDIRINOP X*20! DMB to be opened during 
online initialization 
DDIRKBRQ x*10! Buffer pool space required 
for this KSDS 
DDIRWAIT x'08* Waiting for zero DDIRCNT 


DDIRNOSC x' ous Do not schedule this DMB 
K°02" Reserved 
DDIRNODP 2 OS Oh fe Do not schedule updates 
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13 19 DDIRCOD2 1 DMB code byte 2 


DDIRNDBM x* 80 DMB not present in core 
image library 

DDIRNRAN x* 40! Requested HDAM randomizing 
module not in core image 


library 
DDI RH SAM x*20° This is HSAM DME 
DDIREXCL X¥*10" DMB being used exclusively 
DDIREXSD x*08"* Exclusive control required 
for scheduling 
DDIR1IGRP x*O4! This DMB is first in shared 
index 
DDIRGRP x*02! This DMB belongs to shared 
index 
DDIRBAD x*018 DMB initialization 
unsuccessful 
14 20 DDIRVSRT 1 R15 VSAM return code 
15 21 DDIRPP ST 3 PPST address if DMB used exclusively 


The DACT is described in Chapter 11 as part of the general structure and 
description cf the data management block (DMB). 


Hex Dec Name In _— Description 
0 0 DMBCANME 8 Name of address conversion 


algorithm load module 


8 a DMBLDAKL 1 Root key length less one 

9 9 DMBELAEF 3 Entry point to conversion acdule 

Cc 12 DMBUDASZE 2 Size of the conversion module 

E 14 DMBDARAP 2 Number of root anchor points per 
block 

10 16 DMBDABLK 4 Number of highest block directly 
addressable 

14 820 DMBDABY®M 4 Maximum number of"bytes per rvot 


before overflow outside of directly 
addressable area 


18 «24 DMBLABYC 4 Current number of bytes consecutively 
inserted or loaded under root 


1c 28 DMBDACP 4 Result cf last address conversion 
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DIZXCBI_DSECT_=-_XCBI 





This DSECT describes the fields that follow the XECB used by the batch 
partition in MES. 


Hex Dec Name Ln Description 
0 0 XCBI1ECB 4 Batch partition XECB 
4 4 XCB1PSB 4 Pointer to PSB name 
8 8 XCBIPROG 4 Pointer to program name 
Cc 12 XCBICNT & Address of count of number 
of parameters 
10 16 XCBIPARM 72 Addresses of parameters on 
call {maximum of 18) 
58 88 XCB1FLAG 1 Plag byte 
Name Fou Meaning 
XCETEOJ x'oT FOJ Indicator 
XCBIPLI x*'02' On if PL/I 
O97) 09 XCBIRES 3 Res erved 
PIELD_DESCRIPTICN BLOCK -_FIB 


The FDB is described in Chapter 11 as part of the general structure and 
description of the data management block (DMB). 


This describes a "normal" field. 


Hex Dec Name Ln Description 
0 0 FDESYMBL 8 Symbolic name 
8 8 FOBOFFST 2 Field offset from segment beginning 
A 10 FDBDCENF 1 Code byte 
Name EQU Meaning 
FDBLAST x'80°* Last FDB for this segment 
FDBK EY x? aor This is segment’'s sequence 
field 
FDBEQOK x? 20° Duplicate sequence fields 
allowed 
FO BSPEC x* 10° Special FDB (XDFLD, /CK, 
or /SX) 
FODBPACK x' 02? Field is packed decimal 
FDBHEX x'0o1! Field is hexadecimal 
FOE BCHAR x*'Q3° Field is character 
B 11 FDBFLENG 1 Executable field length 


This describes /CK system-related field. 
0 0 FOBSYSNS 3 '/CK* 


3 3 5 Remainder of name 
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8 8 FDBOFFCK 2 Offset from beginning of concatenated key 


A 10 FOBSYSLN 2 Bits 0-3 = 0001 (FDBSPEC) Bits 4-15 = 


executable length 


This describes the XDFLD. 


0 0 FDB XDNM 8 Field symbolic name 
8 8 FDBXDSEC 2 offset to secondary list for this index 
A 10 FDBXDFLG 1 Flag 
Name EQU Meaning 
FDBXDLST x*' sot last FDB 
FILBXDSPC x' 10° Special FDB 
FDBXDSSQ x*ou? SUBSEQ present 
FDBX DEQ x'o1' Index target segment same 
as index source segment 
B 11 FDBXDLEN 1 Length of search field 
INDEX MAINTENANCE PARAMETERS _-_XMPRM 


This CSECT is part of the data management block (DMB). 
for each secondary index exit routine. 
structure and description of the DMB. 


One entry exists 
See Chapter 11 for the general 


Hex Dec Name in Description 
0 0 DMBXMSGN 8 Name of indexed segment 
8 8 DMBXMXDN 8 Name of XDFLD 
10 16 DMBXAXNM 8 Name of user exit routine 
18 24 DMBXMXEP 4 Entry peint address of user 
exit routine 
1¢ 28 DMBXMPLN 2 Length of this entry 
1E 30 2 Reserved | 
20 32 DMBXMRES 4 Used by initialization 
JOB_ CONTROL BLCCK =- JCB 


The JCB is described in Chapter 11 as part of the general structure and 
description cf the program specificaticn block (PSB). 


Hex Dec Nane Lp Description 
0 0 JCBLEVTE 4 Address of level table 
4 ) JCBLEVND 4 Address of end of level table + 1 
8 8 JCBSDB1 4 Address of ist SDB entry (root's) 
Cc 12 JCBSDBND 4 Address of end cf SDBs +1 
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10 


1E 
1F 
20 
24 
26 
28 


2c 


30 


34 


38 


3c 


8O4 


16 


30 
31 
32 
36 
38 
4Q 
44 


48 


52 


56 


60 


_ ICBTRACE 


JCBPREVF 
JCBPREVR 
JCBLEVIC 
JCBSIZE 
JCBMKYL 
JCBRES1 


JCBRES2 


JCBRES3 


JCBRES4 


JCBRES5 


JCBCODE 


14 


Prior 7 functions followed by last byte 
of return code 


The following calls require a PCB and will be 
traced in JCBTRACE. Any call not requiring a 
PCB is not put in the trace table. However, 
the function code appears in JCBPREVF or 
JCEPREVR. 


Code Meaning 


01 "GHU' GET HOLD UNIQUE 
"GU! GET UNIQUE 


03 'GHN' GET HOLD NEXT 
'GN' GET NEXT 

04 'GHNP* GET HOLD NEXT WITHIN PARENT 
*GNP* GET NEXT WITHIN PARENT 

21 "REPL! REPLACE 

22 "DLET' DELETE 

41 *ISRT® INSERT 


The following calls may or may not 
require a PCB 


90 PURG call 


The following calls do not require 
a PCB 


AO UNLD call 
Al GSCD call 
A3 TERM call 


Prior function 

Prior return code rightmost byte 
Address of 1st LEVTAB entry in call 
PCB + JCB size 

Maximum length of key feedback area 
Call characteristics set by analyzer 


Reserved for temporary use by 
action modules 


Reserved for temporary use by 
action nodules 


Reserved for temporary use by 
action modules 


Reserved for temporary use by 
action modules 


Reserved 
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3D 


3E 
3F 
40 
4 
42 


43 
44 
48 
4C 
50 
54 
58 
5C 
60 
64 
68 
6C 
70 
74 
78 
7 
80 
8&4 


61 


62 
63 
64 
65 


66 


67 
68 
72 
76 
80 
ey 
88 
92 
96 
100 
104 
108 
112 
116 
120 
124 
128 
132 


JCBCRGN 


JCBRWKF 
JCB PRESF 
JCBELVT 
JCBLVC 


JCBPC 


JCBPOP 
JCBSTOR 1 
JCBSTOR2 
JCBSTOR3 
JCBSTOR4Y 
JCBSTORS 
JCBSTOR6 
JCBSTOR7 
JCBSTOR8 
JCB WKRO 
JCBWKR1 
JCBYKR2 
JC BWKR3 
JCB WKR 4 
JCBWKRS 
JCBWKR6 
JCBWKR7 


JCBWKR 8 


Open bit and composite organization 
of all SDBs in JCB 


Na me 
JCBOPEN 
JCBORG RI 


JCBORGHD 
JCBORGHT 


JCBORGH SH 


JCBORGH1 
JCEORGHS 
JCBORG SS 


Open done for all data 


EQU Meaning 
x*8o? 
sets in JCB 
x*4q? Organization 
index 
X*20'! Organization 
x* 10! Organization 
x*05!° Organization 
HISAM 
x*04" Organization 
X' O02! Organization 
x*01!* Organization 
HSAM 


Retrieve's working function 


Present coded function 


Work switch for retrieve 


Work switch for retrieve 


is 
is 
is 
is 
is 
is 
is 


Current segment being sought by 


retrieve 


Parent level for 


Reserved, 
Reserved, 
Reserved, 
Reserved, 
Reserved, 
Reserved, 
Work area 
Work area 
Work area 
Work area 
Work area 
Work area 
Work area 
Work area 
Work area 
Work area 
Work area 


Licensed 


ISRT's use 


ISRkT's use 
ISRT's use 
RETR*s use 
RETR's use 
RETR's use 
for 
for 
for action 
for sebien 
for action 
for action 
for action 
for action 
for action 
for action 
for action 


Material - 


root of 


HDAM 
HIDAM 
Siauple 


HIS AM 
HSAM 
sinaple 


across T/0 or 


across 


across 


across 


across 


across 


retrieve 


retrieve 


modules 
modules 
modules 
modules 
modules 
modules 
modules 
nodules 


modules 


Property of IBM 


1/0 
I/0 
I/0 
Ivo 


Ivo 


or 


or 


or 


or 


or 


within parent calls 


calls 
calls 
calls 
calls 
calls 


calls 
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88 136 JCB WKR 9 4 Work area for action modules 
8c 140 JICBWKR10 4 Work area action modules 
90 144 JCBWKR 11 4 work area for action modules 
94 148 JCBWKR12 4 Work area for action modules 
98 152 JCB WKR 13 4 Work for action smodules 
9c 156 JCBUKR14 4 Work area for action modules 
AO 160 JSCBWKR 15 4 Work area for action modules 
JCB_DSG_ENTRIES 
Aa 164 JCBICBA 4 Address of ACB extension for this 
data set (KSDS ACB a ie HIS AM) 
A8 168 JC BDMBNO 2 DMB number for this DSG 
AA 170 JC BICBNO 1 ACB numker cf ACB in DMB (KSDS ACB 
number if HISAM) 
AB 171 JCBINDA 1 JCB indicators data set organization 
Name EQu Meaning 
JCBDSOLS x*80° This is last file in JCB 
JCBDSORI x'age File group is root in index 
JCBDSOHD rt20°" File group is HDAM™ 
JCBLSOHI x? 10° File group is HIDAM 
JCBDSOH1 X'Ou?t File group is HISAM or 
simple HISAM 
JCBDSOHS x*02' File group is HSAM or 
Simple HSAM 
JCBDSOUP Xx'O18 Re served 
AC 172 SJCBIRECA 4 KSDS record address relative record 
number 
BO 174 Reserved 2 Reserved for future use 
B2 176 JCBINDRB 1 JCB indicators 
B3 177 JCBINDC 1 JCB indicators 
Na ne EQU Meaning 
JCBBLDEL x*' 80! This file group 
belongs to DELETE/REPLACE. 
Notes This is an additional 
DSG generated if PCB has 
delete sensitivity. This is 
always the first DSG in the JCB. 
B4 178 JCBINDG 1 JCB indicators for variable length 
Name FQU Meaning 
JCEPREM x'80? Segment prefix has been 
moved to work area 
JC BDATX x'4or Segment has been 
completely expanded 
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B5 179 


B8 180 


BC 184 


LEVEL TABLE - LEVTAB 


Reserved 
JCBNOSAM 


JCBLEOOT 


3 
4 


4 


JCBVL 


JCBRETD 
JCBCCMMD 


Reserved 


Reserved 


x*os? 


x*'Q4? 
X*Q2* 


The VL routine has been 
entered for this segment 
Data return call 

Path call 


RBA of current root 


The level table is described in Chapter 11 as part of the general 
structure and description of the program specification block (PSB). 


Hex Dec 
0 0 
1 1 
2 2 
4 4 
8 8 
c 12 
D 13 
E 14 
10 16 


LEV SEGOF 


LEVTTR 


LEVSDB 


LEVF1 


LEVF2 


LEVUSEOF 


LEVYNUPC 


LB 


4 


1 


1 


Level nusber 


Current segment physical ccde 


Segment's physical code offset from start 
of record (relative offset to segment 
from start of buffer) 


Relative byte address (RBA) 


SDB entry address for current physical 
code in this entry 


Code byte 
Name EOU 
LEVDLET x? 80° 
LE VEMPTY X*4Q? 
LE VHELD Xx*20° 
LEVHIER x*10"° 
LEVDATA xX*08? 
LE VPLAST X*04* 
LEVPFRST X*02* 
LEVLAST x*o1! 


Meaning 


Segment at this level 
newly deleted 

This level table entry 
empty 

Segment at this level in 
hold status 

Segment at this level in 
hierarchic path 

Segment at this level 
moved to user. 

Segment is last of type 
for parent 

Segment is first of type 
for parent 

This is last level table 
for PCB 


Code byte used by retrieve (DLZDLR00) 


Offset cf segment in user I/O area 
(PSTUS ER) 


Physical code of requested segment 
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16°17 
12 18 
13.619 
14 20 
15 21 
1c 28 
20 32 


LEVF3 


LEVF4 


LEVF5 


LEVMEMBR 


LEVNUSDE 


LEVSSA 


Code 


z 


ane 
LE VPSUDO 
LE VDATA1 


LE VKEY1 


Code 
Naze 
LEVCOMMT 


LEV COMMX 


Code 


1z 


ane 
LE VCOMS0 
LE VCOMMF 
LE VYCOMAL 
LEVCOMMA 


LE VCOMMD 


LEV CONMN 


One-byte switch 


Name 


LEVMSEMEQ 


byte 
EQO 
x'ost 
x'oas 
X*02* 


byte 
Fou 
X*8Q! 
x* 20° 


byte 
EQU 
x* 80? 
x*20° 
x'10! 
x'o8? 


x'Og? 


x*02! 


EQu 
x'80¢ 


Meaning 


This is pseudo SSA 
filling gar 

At least 1 member 
qualified on data 
Every set has at least 
one key field 


Meaning 


T ccmmand code - retrieve 
by direct address 

X command code index 
maintenance internal call 


Meaning 


0 command code - get 
unique at level 

F command code - get 
first of segnent tyfpe 

L command code - get last 
of segment type 

A command code - any seg 
type this level 

D command code - transfer 
data this level (path 
call) 

N command code - do not 
replace this level 


for each member 


Meaning 


Operator has = sign 


LEVMEMLT X*40" Operator has < sign LEVMEMGT 
X'20* Operator has > sign 


LEVMEMAC 


LE VNEMKY 


x* 08" 
x*0u* 
x*03! 


Both > & < set if 
operator is not equal 

a=) 

This member in use 
{unqualified if only bit) 
Qualification is on key 
field 

Both 6 and 7 set for 
right parenthesis 


Same as above for other 7 nenmbers 


This SSA's SDB address 


This SSA's left-parenthesis positional 
address 
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BEC_ PARTITION TABLE ENTRY _=_MPCPT 


The MPC partition table is used to pass control information when 
processing batch partition application programs under multiple partition 
support (MPS). The MPC partition table is in the CICS/VS transaction 


work area. 


Naze Length 
MPCPARTB 144 bytes 


MPCECBLT 11 full- 
words 


MPCPT ENTRY LAYOUT 
Hex Dec Name 
0 0 APCDELIS 


0 0 MPCFLAG 


1 1 MPC RC1 

2 2 MFPCEC2 

3 3 MPCPID 

4 & MPCTCA 

8 8 MPCSXECE 

C. 42 MPCAXECB 
10 «16 MPC ADBPC 
14 26 APCEARSL 
18 24 

- = MPCPTLN 





Description 


One 16-byte entry (see entry layout below) 
for each partition defined during system 
generation except the MEC partition. 
Delimiter is a full-word of X'FF*, 


ECB pointer list. On entry for each: 


Start partition XECB (DLZXCBNO) 
Stop transaction XECB (DLZXCB00) 
Stop partition XECB (DLZxXCB01) 
ABEND XECB on BEC attach failure 
(DLZX CBN 3) 


Delimiter isa fullword of X*FF*, 


Lp Description 

4 MPCPT delimiter field 

1 MPC activity flags 

Name Fou Meaning 

MPCPACT xX*' 8c? Partition active indicator 

MPCERR x*gor Error condition encountered 
on DL/I scheduling call, or 
BPC attach failure. 

MPCTSTP x* 20° Stop transaction indicator. 

MPCPSTP x*108 Stop partition indicator. 

MPCXECR x' ost XECBs deleted for this 
partition. 

MPCSDEF X' Out Start XECB defined. 

MPCADEF x*02° ABEND XECB defined. 

1 Error return code from TCAFCTR 

1 Error return code from TCSDLTR 

1 Partition identifier (F1, F2, we.) 

4 Address of TCA 

4 Address of stcp partition XECB (DLZXCB01) 

4 Address of ABEND XECB (DLZXCBN3) 

4 Address of batch partition controller 

entry point 

4 Address of MPC - BPC parameter list 

4 Reserved 

28 Length of partition table entry 
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PARTITION SPECIFICATION TABLE _-_PST 


One partition specification table (PST) exists for each task in an 
All DL/I resources allocated to 


online or batch processing partition. 
the task can be located through the PST. 


The PST also contains pointers 


to the task I/C area and any segments currently associated with the 


task. 
Hex Dec 
0 0 
4 4 
8 e 
Cc 12 
10 16 
14 20 
18 24 
ic 28 
20 32 
24 36 
28 40 
2c 8Os «4 
30 48 
34 52 
38 56 
3c 83=—6.: 60 
40 64 
Ry 68 
4&5 69 
4&8 72 


Name 

PST FREAD 
PSTDLIWO 
PSTDLIW1 
PSTDLIW2 
PSTDLIW3 
PSTDLIW4 
PSTDLIWS 
PSTDLIW6 
PSTDLIW7 
PSTELIWA 
PSTDLIWI 
PSTDLIWA 
PSTDLIWB 
PSTITLIWC 
PSTCELIWD 
PSTDLIWE 


PSTDLIWF 


* ELZI_SECTION 


PSTCCDE1 


PSTSCDAC 


PST ABIND 


La 
4 


y 


4 


3 


1 


Description 


Pointer to PST prefix for this PST 


Action 
Action 
Action 
Action 
Action 
Module 
Module 
Module 
Mo dule 


Module 


Work 
Work 
Work 


Work 


Words 


Words 


Process code 


Na me 
PSTINTNT 
PSTSCHED 


PSTPRVWT 


Address of SCD 


EQuU 
x* 40! 
x" 170° 


x' cs 


Cannot schedule - intent 
not satis fied 

Schedule function may be 
completed 

Logger private wait 
indicator 


Task/system ABEND indicator 


Name 
PSTERMNSP 


pe} 


x* 80° 
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Meaning 


PUT error message 


49 
4c 
GD 
50 
54 
58 


5¢C 
5c 
60 
64 
68 
6C 
70 
74 
78 


7c 


80 


84 


73 
76 
ca 
80 
84 
88 


92 

92 

96 
100 
104 
108 
112 
116 
120 
124 


128 
132 


PSTIQPRM 
PST MT 
PSTUSER 
PSTSEGL 
PSTSEG 


PSTFSB 


= 


& 


indicator 


PSTSABND x* 20° System ABEND message 
indicator 
PSTTABND x* 10° Task ABEND indicator 


Pointer to caller's PARM list 


Return segment indicator 


Yser's segment I/0 area address 


Retrieved segment length 


Retrieved segment address 


PSB directory entry address 


* DLZL_USER TASK STATISTICS 


PSTACCT 
PSTDGU 
PSTDGN 
PSTDGNP 
PSTDGHU 
PSTDGHN 
PSTDGHNP 
PAILISRT 
PSTDDLET 


PSTDREPL 


PSTCBPCB 


PSTFNCTN 


0 


4 


p=7 


Beginning of user task statistics 


'GU' data base calls issued 
'GN' data base calls issued 
"GNP! data base calls issued 
'GHU' data kase calls issued 
'GHN' data base calls issued 
"GHNP' data base calls issued 
"ISRT* data base calls issued 
*DLET' data base calls issued 


*REPL* data base calls issued 


Address of current or last-used PCB 


Caller's function to buffer handler, 
index maintenance, space management, 
or open/close 


* CALI_FUNCTION TO _FUFFER EANDLER 


Name EOU Meaning 

PSTMSPUT X'OE* Insert record sequentially 
into KSDS 

PSTPUTKY x*'op? Insert record by key into 
KSDS 

PSTSTLBG x*'oct Get first record of a KSDS 

PS TGETNX X' OBS Get next record from KSDS 

PSTERASE X'OA?* Erase a record in a KSDS 

PSTSTLEQ X'09; Get a record from a KSDS 
{key equal or high) 

PSTWRITE x‘ cs Write new record into 
HISAM ESDS 

PSTPGUSR x*Q7* Purge all buffers marked 
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A8 


AC 
AE 


BO 


B1 


B2 


B4 


DC 


FC 
FD 


FE 


FF 
100 
104 


114 


Dec Name La Lescription 
160 PSTEFUSE ty Address cf buffer to be used 
164 PSTSUIN 4 Address of subpool information 


table to be used 


168 PSTPREAR 4 Address of buffer prefix used 
during this call 
172 PSTSUBNM 2 Subpool numter used during this call 
174 PSTSWI 2 Work space 
176 PSTPOSEL 1 Counter for position of use chain 
element 
177 PSTMROCO 1 Number of rows/ccluans in matrix 
currently used by this task 
178 Reserved 2 Reserved for future use 
180 PSTSAVRE 40 Register save areas for internal 
use by kuffer handler 
220 PSTRETRE 32 Register save areas for internal 
use by buffer handler 
252 PST NUMRC 1 Number of tlocks read this call 
253 PSTNUMWT 1 Number cf writes issued this call 
254 PSTCLRWT 1 Buffer handler indicator 
Na me EQu Meaning 
PSTIWAIT xK'80°? IWAIT issued during this 
call 
255 Reserved 1 Reserved for future use 
256 PSTISKID 4 Hashed task identification 
260 Reserved 16 Reserved for future use 
* FST WORK AREAS 
276 PSTWRK1 4 Work space 
280 PSTWRK2 4 » « for use by 
284 PSTWRK 3 4 - « buffer handler 
288 PSTWRKY 4 - e and data base logger 
* TATA BASE LOG USAGE OF PSTWRK1, 2, 3, AND 4 
276 PSTDBLFC 1 Function codes 
Name EQU Meaning 
DBLNDXC x*80° Index maintenance call 
DBLCMC x' oo! Chain maintenance call 
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115 


134 
138 
13C 
140 
144 
148 
14C 
150 
154 
158 


15C 


1B0 
1B4 


1B8 


277 


280 


280 


292 
256 
300 
304 
308 
312 


320 
324 
328 
332 
336 
340 
344 
348 


432 
436 
440 


(Bits 1-3=0) 


DBLPHYI xX*4or Insert call 

DBLPHYD X* 20° Delete call 

DBLPHYR x*10° Replace call 

DBLOOPS X* OA No data - end of user's 
call 


DBLLASTC x' os! Last change for this 

. user's call 
DBLFSE1 x? 008 One FSE (Bit 1 or 2 on) 
DBLFSE2 x'oa' Two FSEs (Bit 1 or 2 on) 
DELPHYRO x'02' Old copy of delete 
DBLNEWBL x'ot! New block log call 


PSTRRK 141 3 PSDB address, if new block log call, 
count in low-order two bytes 


PSTWRK2 4 Chain maintenance - o1d copy of 
chain counter 


PST WRK 2-4 6 or 12 Insert or delete - offsets 
and new FSEs 


PSTWRK 11 4 Work space preserved 
PSTWEKT2 4 * e across 

PSTWRKT3 4 - »« calls 

PST#RK TH 4 « »« to the 

PSTWRKTS a - - buffer handler 
PSTWRKD1 4 Work space 

PSTWRKD2 4 » »« for use by 

PSTHWRKD3 4 « « delete/sre place 
PST¥RKDY 4 ee 

PST WRKD5 4 oe 

PST WRKD 6 4 ee 

PSTWRKL7 4 oe 

PSTCORWA 4 Current work area 
PSTDLITWA 4 Delete work area address 
PSTDLROMS 84 Retrieve save and maintenance 


work area 


* DATA _BASE_ LOG SECTION 

PSTLOGWA 4 Address of work area for log output 
PSTLOGO 4 Reserved 

Reserved 8 Reserved for future use 
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1C0 
1¢8 


1D0 


1D1 


D2 
D3 


1D4 


1DB 


1E3 


1E4 
22C 
234 


250 
298 
2E0 
328 
370 
338 


400 


416 


448 
456 


464 


465 


466 
467 
468 


475 


4 83 


484 
556 


5€4 


5$2 
664 
736 
808 
880 
9&2 
1024 


PST ECPGRE 
PSTPCPSB 


PSTPCTI 


PSTECT2 


PSTERCD1 
PSTERCD2 


PSTERDT1 


PSTERDT2 


PSTERIND 


PSTLIPERM 
PSTELIPR 


Reserved 


8 
8 


1 


1 


72 
8 


28 


Application program name 


PSB name 


Partition/task information 


Name £QU 


PST BATCH x* 80° 


PSTLODU x'aod' 
PSTLODUA ¥'20' 
PSTOU DR x' ou 
PSTULD Xx'O02' 


Meaning 


Task is batch 

Task is online if bit is 
off 

DLZURGLO utility executing 
HD data base being loaded 
by DLZURGLO 

Task is recovery utility 
Task is reorganization or 
logical relaticnshirf 
resolution utility 


Program optionsyinformation 


Nare EQg 
PSTCALI x'02!" 
PSTPLI x*O1° 


Meaning 

User's call list is 
implicit | 

User's program is PL/I 


Error message cede byte 1 


Error message 


Error message 
name 


code byte 2 


data for ACB cr DTF 


Variable error message data 


Error routine 
PSTDUMPI x'so? 


PSTCANLT x*4o* 


Area to build 


indicator byte 


Issue DUMP after error 
message 

Issue CANCEL after error 
message 


user parameter list 


PL/I region STXIT processor 


Reserved 


* REGISTER SAVE AREAS FOR PROCESSING DL/I_CALLS 


PSTSV1 
PSTSV2 
PSTSV3 
PSTSV4 
PSTSV5 
PSTSV6 


PSTSV7 


2 


~J ~~ 


2 
72 
72 
72 
72 


72 


Save area 1 


N 


Save area 


ud 


Save area 


Save area 


save area 


Save area 


~J n wn = 


Save area 
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| EST_PREPIX -_PPST 


The PST prefix contains data required for user task scheduling in a CICS 
online environment as well as buffer handler I/O and ENO WAIT request 
information. The PST prefix is logically part of the PST. However, in 
order to operate more efficiently in a virtual storage envircnment, all 
PST prefixes (cne for batch) are physically located in one contiguous 
area. This organization is more efficient. 


Hex Dec Na pe Lp Description 
0 0 PPSTCF 1 PST prefix chain fcrward byte 
1 1 PPSTCB 1 PST prefix chain backward byte 
2 2 PPSTECB 2 PST ECB 
4 4 PPSTIND 1 Task schedule and dispatch indicato 
Name EQO Meaning 
PPSTIO x*'8ort Task waiting for 1/0 
PPSTSI X "40? Cannot schedule due to 
segment intent 
PPSTTC x* 20! Cannot schedule, over 
task count 
PPSTBF x* 10° Task enqueued by 
buffer handler 
PPSTMPS xk' oe" Task is MPS 
PPSTACT X*'O4" Task is active 
PPSTMSDL x*Q2' MSP task scheduled 
by BPC 
PPSTA x'ot Task is scheduled 
5 5 PPSTCA 3 Address of PST 
8 8 PPSTID 1 Task ID 
9 9 PPSTTCA 3 Task*'s TCA address 


* SECTION OSED_ FOR _BUPPER_HANDLER _ENC/DEQ* 


Cc 12 PPSTE XCT FY ENC/DEQ PTR for existing 
control interval 
10 16 PPSTPECTI 4 ENQ/DEQ PTR for pending 
contrdl interval 
14 20 PPSTSUPO 4 ENC/DEO PTR for subpool space 
18 24 PPSIMATR 4 ENQ/DEQ PTR for matrix space 
1C 28 PPSTCHATL 4 Chain field for ENO/DEQ 


pending control interval 


The PSIEB is described in Chapter 11 as part of the general structure anda 
|description of the DMB. 
Hex Dec Name Ln Description 
0 0 DMBSC 1 Segment code 
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1 1 DMBPSC 

2 2 DMBLEV 

3 3 DBBXNULL 
4 4 DMBPPFD 


5 5 DMBPPBK 


6 € DMBDCB 


7 7 DMBETR 


8 8 DMBPRSZ 


A 10 DMBDL 


Cc 12 DMBISRT 
D 13 DMBLLT 

E 14 DMBCKL 
10 16 DMBOSE 


Parent's segment code 


Segment level 


Reserved 


Pointer nugber in parent to first 
occurrence of segment for parent 


Pointer number in parent to last 
occurrence of segment for parent 


ACB number 


Prefix flags 


Name 

DMBCTR 
DMB PTFD 
DMBPTBK 
DMBPP 

DMBLTFD 
DMBLTBK 


DMBLP 


ZOU 

x80" 
x°40! 
x20! 
x10! 
x08! 
x04! 


x'02° 


Meaning 

Counter present 

Segment has physical twin 
forward pointer 

Segment has physical twin 
backward pointer 

Segment has physical 
parent pointer 

Segment has logical twin 
forward pointer 

Segment has logical twin 
backward pointer 

Segment has logical parent 
pointer 


Prefix length of segment 


Data length of segment 


Insert rules 


Na me 


DMBXPROT 


DMBIHE RE 


DMBILST 
DMBIFST 
DMNBIRL 


DM BIRP 
DMBIRV 


EQU 
x* 80° 


¥*30° 
x*20° 
x'10!? 
x*03° 


x*02! 
x*o1" 


Meaning 

System data in index is 
protected 

Tf no key field, insert at 
current positicn 

If no kay field, insert 
after existing segments 
Tf no key field, insert 
before existing segnaents 
Insert rule is logical 
Insert rule is physical 
Insert rule is virtual 


Delete and replace rules 


DMBDRP 
DMBDRV 


Fou 


x*oct 
x' 08* 
x'our 
x*O3' 
x*02! 
x' ot! 


Meaning 


Replace rule is logical 
Replace rule is physical 
Replace rule is virtual 
Delete rule is logical 
Delete rule is physical 
Delete rule is virtual 


Concatenated key length of parent 


of this segment 


Code byte 
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10 
14 
18 


19 


1c 


1E 


20 


16 
20 
24 


25 


28 


30 


2 


DMBFDBA 
DM BFSDB 


DMBVLDFG 


DMBSCTAE 
DMBSGMN 
DMBSGMX 


DMBFLAG 


DMBLIST 


Name Bit Meaning 
DMBEX 0 This PSDB in use 
exclusively 
DMBODP 1 This PSDB in use for 
update 
2-7 Contain a count of read- 
only users 
4 Address of FDBs for this segment 
4 First SDB for this segment 
1 Variable length data flag 
Name EQU Meaning 
DMBCPT x*O8* Segment has compression 
routine 
DMBVLS x*O4' Segment is variable length 
DM BCPTIT xrott Compression routine has 
initialization processing 
3 Address of segment 
compression CSECT 
2 If variable length, minimun 
length cf seqment 
2 If variable length, maximum length. 
If fixed length, actual length 
0 Secondary list flag 
Name EQu Meaning 
DM BLPEX x*'4gt A logical parent exists 
DMBLCEX x*20'* One or more logical 
children exist 
DMBNXEX x10? Cne or more indexes exist 
DM BX DEX X'Q4t Indexed segment exists 
4 Address of secondary list for 
this segment 
PCR 


The PCB is described in Chapter 11 as part of the general structure and 
description of the program specification block (PSB). 


Hex 
0 


8 


10 


14 


Dec 


0 
e 
10 
12 
16 
20 


bo 
to 


CBPCBIEBL 
DBPCBLEV 
DBPCBSTC 
DEPCEPRO 
DBPCEJCE 


DBPCBSFD 


Ln 


8 


Description 
DBD name 

Level of segment 
Status codes 
Processing opticns 
JCB address 

Segment name feedback 
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1c 28 DBPCBLKY 4 Length of key feedback area in bytes 
20 32 DBPCBNSS 4 Number of sensitive segments in PCB 
24 36 DBP CBKFD Var Key feedback area 

PCB_DOPE_VECTOF 


The PCB dope vector is described in Chapter 11 as part of the general 
structure and description of the program specification block (PSB). 


Hex Dec Name La Description 
Q 0 DPPCBDBD 7 The address of the location that 
contains DBPCBIRED. 
4 4 Ma ximunr 2 Maximum Length: Halfword binary 
Length number which specifies 


number of storage units allecated 
for the string; byte count if 
character, bit count if bit. 


6 6 Current 2 Current length: Halfword binary 
Length number which specifies the number 
of storage units, within the 
Maximum length, currently 
occupied by the string. 


8 8 DPPCBLEV 4 The address of the location that 
contains DBPCBLEV. 
c 12 Maximum 2 Maximum length: Halfword binary 
Length number which specifies 


number of storage units allocated 
for the strings; byte count if 
character, bit count if bit. 


E 14 Current 2 Current length: Halfword binary 
Length number which specifies the 
number of storage units, within the 
maximum length, currently 
occupied by the string. 


10 16 DPPCBSTC 4 The address of the location that 
contains DBPCBSTC. 
14 20 Maximum 2 Maximum length: Halfword binary 
Length number which specifies 


number of storage units allocated 
for the string; byte count if 
character, bit count if hit. 


16 22 Current 2 Current length: Halfword binary 
Length number which specifies the number 
of storage units, within the 
maximum length, currently 
occupied ty the string. 


18 24 DPPCBPRO 4 The address of the location that 
contains DBECBEEO. 
1c 28 Maximum 2 Maximum length: Halfword binary 
Length number which specifies 


number of storage units allocated 
for the string; byte count if 
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character, bit count if bit. 


1E 30 Current 2 Current length; Halfword binary 
Length number which specifies the number 
of storage units, within the 
maximum length, currently occupied 
by the string. 


20 32 DPPCBJCB 4 The address of the location that 
contains DBPCBJCB, 
24 36 DPPCBSFD 4 The address of the location that 
contains DBPCBSFD. 
28 49 Maximun 2 Maximum length: Halfword binary 
Length number which specifies the number 


of storage units allocated for the 
string; byte count if character, 
bit count if bit. 


2A 42 Current 2 Current length: Halfword binary 
Length number which specifies the number 
of storage units, within the 
naximum length, currently occupied 
by the string. 


2c 4y DPPCBLKY 4 The address of the location that 
contains DBECBLRY. 
30 48 DPPCENSS 4 The address of the location that 
contains DBPCBNSS. 
34 £2 DPPCBKFD 4 The address of the location that 
contains DBPCBKFD, 
38 56 Maxinun 2 Maximum length: Halfword binary 
Length number which specifies the number 


of storage units allocated for the 
string; byte count if character, 
bit count if bit. 


3A 58 Current 2 Current length: Halfword binary 
Length number which specifies the number 
of storage units, within the 
maximum length, currently occupied 
by the string. 


The PSB prefix is described in Chapter 11 as part of the general 
structure and description of the PSB. 
D 


Hex Dec Name Ln Description 
0 0 PSBVAID 1 TOS DL/I Versicn ID (present 
only in core image library) 
01 - Version 1.1 
1 1 Reserved 3 Reserved 
4 4 PSBXIOWK 4 Address of work area used 
by DL/I for indexes 
8 g PSB SEG WK 4 Address of work area used 
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10 


14 
18 
1c 


1D 


1E 
20 
22 


24 


422 


12 


16 


20 
24 
2é@ 
29 


30 
32 
34 


36 


PSBEST 


PSEXPCB 


PSBNDXWK 
PSB IOA WK 
PSBINDEX 


PSBCODE 


PSBSIZE 
Reserved 


PSBUBOFF 


PSBLIST 


Var 


by DL/I for variable-length segments 


Address of PST if PSB scheduled 
or active 


Address of index maintenance PCB 
if required 


Address of work area used by DL/I 
Address of work area used by DL/I 
BPD index 


Code -- A/F reuse, source language 

0 - Reserved 

1 - Reserved 

2 - This is an Assembler or a 
COBCL program 

3 ~ This is a PL/I progran 

4-7 = Reserved 


PSB Prefix size 
Reserved 


Offset from PSBLIST to first DB PCB 
(always zero) 


Beginning cf PCB list (a list of full- 
word pointers containing PCB addresses). 
Last PCB address word has byte 0, bit 
0=1. List may contain a maximum of 64 
addresses. For PL/I programs these 
pointers are to the dope Vector Tables in 
which the first word is a pointer to the 
associated PCB. 
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The PSB directcry contains an entry for every program known to DL/I (one 
- for batch), that is, an entry for every PSB (program specification 
block) that may run under DL/I control. The PSB directory is part of 
the DL/I nucleus and is created at DL/I system definition time for 
online processing. The start address of the directory (SCDDLIPS) and 
the entry length (SCDDLIPL) are contained in the SCD (system contents 
directory). 


Hex Dec Name Ln Description 
0 0 PDIRSYM 8 PSB symbolic name converted fron 


PSB generation name 


8 8 PDIRADDR q PSB storage address 
c& 12 PDIRPSBL 4 Length cf ESB 
10 16 PDIRZWA 2 Length of all work areas for this PSB 
12 18 PDI CODE 1 PSB code byte 
Na me EQY Meaning 
PDIRUPD x*' 80° PSB is update sensitive 
PDI RE XC X*40t PSB requires exclusive 
control of data base 
PDIRPLI x*20! PSB is for PL/I program 
PDIRDUPL x* 10° PSB is duplicate 
PDIRDELT %*02' PSB is delete sensitive 
PDIRT FAL x? O18 Online task termination 
unsuccessful for this PSB 
13 19 PDI FOPTC 1 PSB scheduling options 
Name EQu Meaning 
PDIRNOSC X¥* 80! Do not schedule this PSB 
PDIRSCHD X*4Q? PSB is scheduled 
PDIRNTNT x' 10! PSB is waiting for segment 
intent 
PDIREAD X'ot PSB initialization 
unsuccessful 
14 20 PDIRSILA 4 PSB segment intent list entry address 
18 24 Reserved 4 Reserved for future use 
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PSB_GENERATION CCNTROL BLOCK OUTPUT -_PSGEN 


1. PSB - PREFIX 


Hex Lec Ln Description 
0 0 4 Address of SEGTAB 
4 4 4 Address of SORTAB 
8 8 4 Address of DBREFTAB 
Cc 12 4 Reserved 
10 16 4 PST address (prefix size) 
14 20 12 Reserved 
20 32 1 Reserved 
z1 33 1 PSB code 
22 348 2 PS®8 prefix size 
24 36 2 Reserved 
26 38 2 Offset to first DB PCB address 
28 40 Var Address of PCB(s) (one 4-byte address for each 
PCB) 
2- CB PCB 
Hex Dec Lp Description 


PL/I dope vectors precede PCB if LANG=FL/I 


0 0 8 Data base name 

8 g 2 Level feedback 

A 10 2 Status code 

Cc 12 4 Processing opticns 

10 16 4 JCB address 

14 20 8 Segment name feedback 
1C 28 1 Position 

1D 29 3 Key feedback length 
20 32 2 Number of sensitive segments 
z2 «(34 2 Offset to first SENSEG 
24 36 Var Key feedback area 
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3. SEGTAB ENTEY 


Hex Lec Ln Decription 
0 0 8 Segment name 
8 8 4 Processing options 
Cc 12 1 Plag 
D 13 3 PCB address 
10 16 2 Offset to parent segment 


12 18 


N 


Offset to source Segment 


4. SORTAB ENTRY 


Hex Dec Ln Description 
0 0 8 Segment name 
8 8 1 Flag 
9 9 3 Offset to data base entry 


5. (CBREFTAB ENTRY 


Hex Dec La Description 
0 0 12 Data base name 
Cc 12 4 Reserved 


PSB_INTENT LIST =_ESIL 


The PSB intent list is pointed to from the PSB directory and is a list 
of all the DMBs which may be used by that PSB (program). 


Hex Bec Name Ln Description 
0 0 PSILDM BN 8 DMB name for this list entry - 
overlaid during initialization 
0 0 PSILDIRA 4 Address of DMB directory entry - 
resolved during initialization 
4 4 PSILDIREN 2 DMB number of this DMB 
6 6 Reserved 4 Reserved for future use 
8 8 PSILNTNT 1 Segment intent descriptor byte 
Name EQU Meaning 
PSILDBEX x? 80° PSB contains a PCB which 


requires exclusive control 
for this DMB 


PS ILDBUP x' aot PSB contains a PCB which 
is update sensitive 
PSILBFRI x*' 20° Buffer pool space required 


for this KSDS 
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9 9 PSILLNGH 1 Length of this entry in list 


A 10 PSILSEGD Var Segment intent bits. Two bits are 
used for each segment in the DMB 
and represent the PSB's sensitivity 
to each PSDB. Their meanings are: 


Bit Meaning 
00 PSB not sensitive to the segment 
01 PSB read only sensitive 

10 PSB is update sensitive 

11 PSB requests exclusive 


control (HISAM root insert) 


The bits are allocated to segments in the 
following manner: 


BIT 


SEGMENT 





The seccnd part of the segment intent 
bits is a mask. It is constructed from 
the segment intent bits of the first 
part. Part 2 has the same length as part 
2 


The secondarv list is described in Chapter 11 as part of the general 
structure and description of the DMB. The labels in SEC vary with the 
type of secondary index entry. See the field description in the next 
part of this section. 


Hex Dec Name Ln Description 
0 6) DMBSCDE 1 Code byte 
Name Bit Meaning 
DMBSND x* 808 Last in secondary list 
DMBNXXDS x' 6a! Secondary list describes 


index relationship as seen 
from index target segment. 
This list is not present 
if ISS = target - Code 64 

DM ENXISS X' 690! Secondary list describes 
index relationship as seen 
from index source segment 
(TSS) - Code 60 

DM BINDXD x? 4qe Secondary list describes 
index target segment as 
seen frem index pointer 
segment - Code 44 


DMBEXTRN x'4o? Secondary list describes 
user index exit routine - 
Code 40 
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8 


8 


DMBSKYLN 


DMNBISSOF 


DE BINSSC 


DMB XN SDB 


DMBISSSC 


DMBIPSER 


4 


DMBSUBSQ x*24! Secondary list describes 


index SUBSEQ field(s) - 


Code 24 

DMBSOURC x*20! Secondary list describes 
index DDATA field(s) - 
Code 20 

DM FSLCF x* os? Secondary list describes 


logical twin sequence 
field - Code 08 


DMBSRCH X7Q04° Secondary list describes 


index search (SRCH) 
field(s) - Code 04 


DMBSLC X'o2' Secondary list describes a 


logical child - Code 02 


DMBSLP x'O1! Secondary list describes a 


logical parent - Code 01 


Executakle length of key 


Offset to Cofe 60 from start of 
IsS secondary list 


Segment code of index pointer 
segment 


DDIR address of index data base 


Seqment code of index source 
segment 


PSDB address of index source segment 


Remaining 4 bytes are same as code 4u 


4 
5 


4 


5 


* CODE _6C_=-_ DESCRIBES _INDEX FRC ISS 


DMBSKYLN 


DMBSOFF 


DMBRNSDB 


DMBXNSDB 


1 
2 


1 


3 


Executable length of key 


Offset te PSDB address pointer of 
index target segment 


Segment code of index pointer segment 


DDIR of index 


Remaining 8 bytes are same as Code 44. 


* CODE 44 - 
DMBSKYLN 1 
DMBSOFF 2 
DMBXDSSC 0 
DMBXDS DB 4 


Executaktle length of key 


Offset to PSDB address pointer of 
index target segment 


Segment code of index target segment 


DDIR address of index target segment 
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fee) 


ty 


DMBXDSC 0 Segment code of index target segment 
8 DMBXPSDB 4 PSDB address of index target segment 
12 DMBXDFLG 1 Code byte (FDBDCENF) from associated FDB 
13 DMBXDPAD 1 Padding constant 
14 DMBSYMOF 2 Offset to symbclic pointer indexing 
segment 
* CODE _40_-_ DESCRIBES INDEX EXIT ROUTINE 
1 DMBSFLG1 1 Flag tyte 
Name EQU Meaning 
DM BSNOLL x? or? Null value present 
DMBEXIT x'O2° Fxit routine present 
DMBEXLOD xX*ou? Exit routine has been 
loaded 
2 2 Reserved 
y DMBNBYTE 1 Null value. If SRCH field 
equals this value, hypass indexing 
Ss DMBXITAD 3 Address of index maintenance 
parameter CSECT 
8 8 Reserved 
* CODE 24 - DESCRIBES SUBSEQ FIELD 


This entry is the same as Code 04. 


LD SOD RS A RS AD A SES AE OS OS el SS A SE RS ED SND ANS OS A AD SD AD 


This entry is the same as Code 04, 


428 


TEP ED AD RS SED SE ND SD END ES A AED ED ED GED NES SRS AMEDD SNE AED SD ED SUED NED SEND CEN ENS AED ane GED SE AED END ee ES GD cate DP 


1 1 Reserved 
2 DMBSPNAM 8 FDB field name 
10 CDMBSFOFF 2 Offset to field in segment 
12 DMBSFCEN 1 Code byte - same as FDBDCENF 
in FDB, 
13 DMBSFLEN 1 Executable field length 
14 2 Reserved 
* CODE_Q4 -_ DESCRIBES INDEX SRCH FIELDS 
1 DMBFDFLGC 5 Five one-byte flags associated 
the following FIB offsets 
6 DMBFDOFF 10 Offset to FDB from first FDB of ISS 


if this slot is in use, Otherwise 


Zeros 
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twin chain). 


2 2 DMBSLCFL 2 


Insert rules (for logical 
See DMBIS RT. 


Number (position) of first and 


last logical child pointers in 
logical parent prefix 


Remaining 12 bytes are same as Code 


ESCRIBES_LOGIC 


01. 


Flag byte 
C'v' - key cf legical parent 


is virtnal 


ents 


data base 


* CODE 01 _-_D 
1 1 DMBSFLG 1 
2 2 DMBSFD 2 
4 i] DMB SEC SC 1 
segm 
5 5 DMBSECDB 3 
8 8 DMBSECNM 8 
segn 


St ERE RET SS CE Ce ES er ED AIR Rice Ee EES Se em EE eh ME me SED wie cares GD ee 


ent 


Logical parent key length 


Segment cede of referenced 


DDIR address of referenced 


Segment name of referenced 


The segment description block is described in Chapter 11 as part of the 


general structure and description of the PSB. 


is root of 


2 


is in an HDAM 
is in a HIDAM 
is ina 


organization 
is in a HISAM 


is in an HSAM 


Hex Dec Name L3 Description 
0 0 SDBSYM 8 SDB segment symbolic name 
8 8 SDBLEVEL 1 Level of this segment (logical) 
9 9 SDBCRGN 1 Organization of data base containing 
segment 
Name EQU Meaning 
SDBORG RI x'4q? This segment 
index 
SDBORGHD X*20' This segment 
organizaticn 
SDBORGHI x'10? This segment 
organization 
SDBORGSH x*05? This segment 
Simple HISAM 
SDBORGH1 x'oat This segment 
organization 
SDBORGHS x'92° This segment 
organization 
SDBORGSS x°'O1! This segment 
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Simple HSAM 


organization. 
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is ina 
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10 
18 
18 
18 


1C 


20 


830 


10 


11 


12 
13 
16 
20 
24 


24 


28 


32 


SDBF3 


SDOBF4 


SDBEHYCD 
SDBDDIR 
SDPBN SDB 
SUDBPSDB 
SDBKEYLN 


SDBPARA 


SEBISGA 


SDBTFLG 


Call sensitivity 


Na ne EQuU 

SCBSENG x*8o? 
SDBSENTI x*40° 
SCBSENR x'20° 
SDBSEND X¥'10; 
SD BSENP x'oyr 
SDBSENX X¥*02' 
SCBSENL x' ot 

Code byte 

Na me EQu 

SDBALTSQ X* yor 
SDBDPAR x*10! 
SDBCISP X'Og! 
SDBPOSL x#02' 
SDBDCHG x'ot 


Segment code 


Meaning 


Sensitivity is read only 
Sensitivity is insert 
Sensitivity is replace 
Sensitivity is delete 
Sensitivity is path only 
Sensitivity is exclusive 
Sensitivity is load 


Secondary index is main 
processing sequence 

Field is in destination 
parent 

CI-split occurred in HISAM 
KSDS 

Position lost 

Temporary switch for 
replaces; data changed 


Address of DMB directory 


Next SDB for this physical segment 


Address of segment description in DMB 


Executable key length of key field 


Parent SDB (address of PCB for root 


SDB) 


Address of data set group section 
of JCB for data set containing 


segment 


Logical relationship code 


Name EOu 

SDBPPTSP x*CcoO* 
SDBPPSP x*80' 
SUBPCTSP x'4or 
SDBGEN x'10!° 
SDBSPP x ost 
SUBSNX x* oar 
SDBSLC xe 02? 
STBSLB » Cid 2 i 
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Segment is a physical 
parent of the target of 
SDBPARA 

Segment is a physical 
parent of SPBPARA 
Segment is a physical 
child of the target of 
SDBPARA 

This SDB is generated 
The related segment is a 
physical parent 

The related segment is an 
index segment 

The related segment is a 
logical child segment 
The related segment is a 
logical parent segment 


21 


24 


25 


26 


27 


28 


2c 
30 
34 
38 


a3 


36 


37 


38 


39 


40 


uy 
48 
52 
56 


57 


SDBTARG 


SDBPTNO 


SEBETDS 


SDBECF 


SDBPCB 


SDBKEYFD 


SDBPOSP 
SDBPOSC 
SC BEOSN 


SDBXFL 


SDBXPANS 


EXPANSICN ELOCK 


Dec 
0 


Name 


SDBXPTYP 


SDB XPFDB 


SDBXPMSK 


3 


1 


Address of the logically related 
segment's SDB. 


Pointer number of first physical 
pointer 


Physical pointer flag byte 


Name Fou Meaning 
SDBCTR X' 80° This LP segment has a 


counter 


SCBPT F x* 40! This segment has a 


physical twin forward 
pointer 


SDBPTB x*20° This segment has a 


physical twin backward 
pointer 


SDBPP x? 10° This segment has a 


physical parent pointer 


SITBLT FD. x* os? This segment has a 


logical twin forward 
pointer 


SDBLTBRK x'ou? This segment has a 


logical twin backward 
pointer 


SDBLP x*Q2!' This segment has a 


logical parent pointer 


Pointer number in parent to first 
occurrence of this segment type 


Pointer number in parent to last 
occurrence of this segment type 


The address within DBPCBKFD for 
key this segment 


Previous position 

Current position 

Next position 

STB expansion flag 

01 - SDB expansion for secondary 


index processing sequence is present 


Address of SDB expansion block 


- PRESENT IF INCTICATED IN SDB 


LB 
1 


Description 

StB expansion type 

01 - expansion is for secondary 
index used as PROCSEQ 


Address of XDFLD FDB used 
as PROCSEO 


Mask of XDFLD FDBs allowed 
in SSAS 
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8 8 SDB RWMSK 4 Work area reserved for 


open/close 

Cc 12 SDBXSQCF 2 Offset from DBPCBKFD to 
subsegq area (0 if area not 
present) 

E 14 SDBXSQLN 2 Length cf SUBSEQ field(s) -1 

10 16 Reserved u Reserved 


This control block contains a one-byte sutpool number relative to zero 
for each HDAM or HIDAM data base allocated. See the general structure 
and description of DL/I buffer pool control blecks in Chapter 11. 


SUBPCOL INFORNATICN TABLE 
The subpool information table is described in Chapter 11 as part of the 


general structure and description of DL/I buffer pool control blocks. 
The information in SBIF is provided for each subpool, 


Hex Dec Name La Description 
0 0 SUBNOF 1 1 PST prefix number of first in chain for 
ENQ subpool 
1 1 SUBNQLA 1 PST prefix number of last in chain for 
ENQ subpool 
2 2 SUBBFNO 1 Number of buufers in subpool 
3 3 SUBBUFHD 1 HDBFR indicator 
4 4 SUPUCPRE 4 Use chain prefix 
8 8 SUBUCHAT 32 Use chain 
28 40 SUBUCSUF nf Use chain suffix 
2c yy SUBRFSIZ 1 Size of the buffers handled in subpcol 
EQU BYTES 
rt07* 512 
X'02! 1024 
X' 93° 1536 
x'oae 20488 
x'o5! 2560 
X06! 3072 
x'o7! 3584 
x'08? 8096 
2D 45 SUBDMBCT 1 Number of DMBS assigned 
2E 46 SUBLEN 0 Length cf SUBINFTA 
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The DL/I system contents directory (SCD) is produced at DL/I systen 
definition time for online CICS-DL/I. The SCD is preassembled as part 
of the DL/I nucleus in the batch DL/I system. The SCD contains major 
entry pointers for all DL/I facilities. The SCD is organized as 
follows: 


® RECORD LAYOUT OF SCD 


Hex Dec Name Ln Description 
0 0 CP YRITE 96 Copyright information 
60 96 ScD 9 Start of addressable SCD 
*SYSTEN_ CONFIGURATION SECT ION* 

60 96 SCDDLIV 1 DL/I version 

61 97 SCDDLIM 1 DL/I modification level 

€2 98 SCDDATE 4 System date - Julian 

66 102 SCDMXTSK iz Maximum number of [L/I tasks 
(online only) 

68 104 SCDCMKT 2 Current maximum number of 
DL/I tasks (online cnly) 

6A 106 SCDATSKC 2 Active DL/I task counter 
{cnline only) 

6C 108 SCDLO WER 4 Partition lower boundary address 

70 112 SCDUPPER 4 Partiticn upper boundary address 

74q 116 SCDNAVID 4 Wext available task ID {online 
only) 

78 120 SCDLOWID 4 Lowest task ID (online only) 

*ACTION MODULE ENTRY POINTS* 

7c 124 SCDPRHED 4 Entry peint of program request 
handler - DLZBPROO/DLZODPO0O 

80 128 SCDDDBHO 4 Entry peint to buffer 

handler - DLZDBHOO 

84 132 SCDDLIRE 4 Entry point to 
retrieve - DLZDLROO 

88 136 SCDDLICT 4 Entry pcint to call 
analyzer - DLZDLAO0O 

8c 140 SCDEBLNT 4 Entry pcirt to data base 
logger - DLZRDBLO 

90 144 SCDDLIDR 4 Entry point to 


delete/replace - DLZDLDOO 
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94 


98 


9c 


AO 


A4 
A8 
AC 
BY 


BC 


co 


C4 


c8 


cc 


DO 


DY 


DC 


pe 


DD 


EO 
E4 
E6 
E8 
EC 
RE 
FO 


434 


156 


160 


164 
168 
172 
180 
188 


192 


196 


200 


204 


20 8 


212 


220 


220 
221 


224 


228 


232 
236 
238 
240 


SCDDLIIN 


SCDDHD SO 


SCDDXMTO 


SCDDLICL 


SCDDSEHO 
SCDTRACE 
SCDTIRCUM 
Reserved 


SCDREENT 


SCDIWAIT 


SCDERRSS 


SCDASE 


SCDABEND 


SCDTKTRM 


Reserved 


SCDDBFPL 


SCDBFPL 


SCDDBFA 


SCDDLIPS 
SCDDLIPL 
SCDDLIPN 
SCDDLIDS 
SCDDLIDL 
SCDDLIDN 


SCDFPPSTS 


Entry point to load/insert for 
retrieve - DLZDDLEO 


Entry point to 
space management - DLZDHDSO 


Entry point to index 
maintenance - DLZDXsTO 


Entry pecint to open/close - 
DLZDLOCO 


Entry point of work tape writer 
Entry pcint of trace module 
Name of trace module 

Reserved for future use 


Entry point to log writer 
- force write 


Entry 
peint of IWAIT routine - DLZIWAIT 


Entry pceint of error message 
routine - DLZERRMAS 


Entry point of scheduler/term 
(online cnly) - DLZSCHTR 


Entry point of STXIT ABEND 
routine - DLZABEND 


Entry point of online task terminator 
for program request handler 


Reserved for future use 


Start of buffer control 
information 


Number of buffer subpools 


Address of buffer pool control 
tlock prefix ~- BFPL 


Address of PSB directory - PDIR 
Length of PSB directory entries 
Number cf PSB directory entries 
Address of DMB directory - DDIR 
Length of DMB directory entries 
Number of DMB directory entries 


Address of beginning of PST 
prefix entries - PPST 
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F4 
F6 


F8 


Fc 


100 


104 


108 
10A 
0c 


11c 


120 


244 
246 
248 


252 


256 


260 


264 
266 
268 


272 


276 


280 


284 


2 86 


288 


SCDPPSTL 
SCDPP STN 


SCDEPAP 


SC DPPAB 


SCD PPFF 


SCDPPFB 


SCDPSTLN 
Reserved 


SCL ACTBA 


SCDCDTA 


SCDDLIS 


SCDDLIUP 


SCDCS ABA 


SCD IKCNT 


SCD SPCNT 


SCDSIND 


SCDUPD 


SCDTWFT 


SCDHLRE 
SCD NDMP 


SCDNLOGTI 


Length of PST prefix 
Number of PST prefix entries 


Pointer to first active PST 
prefix entry (online only) 


Pointer to last active PST 
prefix entry (online only) 


Pointer to first inactive PST 
prefix entry (online only) 


Pointer to last inactive PST 
prefix antry (online only) 


Length of PST 
Reserved for future use 


Address of application program 
control table (online only) - DLZACT 


Address of currently active DL/I 
task TCA (online only) 


Address of first task TCA suspended 
by DL/I 


Address of DL/I upper boundary 
(batch only) 

Address of CICS CSA {online 
only) 


Count of active DL/I tasks 
(online only) 


Count of suspended DL/I tasks 
(online only) 


System indicator 


QU) = ©©Meaning 

X¥'4O" DL/SI maximum task 
indicator (online) 

X¥'20' PSB contains PCB 
with delete sensitivity 
(online) 

X¥'10* PSB contains PCB 
with update 
sensitivity (online) 

x'08* Task waiting for 
segment intent 
(online) 

X'08* Highlevel language 
reentry (PL/I) 

X'QOu* No Dump at STXIT 
if STXIT active 

X*02* No data base logging 
to be performed 
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| 121 


122 


124 


128 
12c 


130 


134 
138 
13C 
13E 


140 


143 
144 


436 


289 


292 
296 


300 


304 


308 


323 


324 


SCDSIND2 


SCDN THC 


SCT ABS AV 


SCDLST AD 


Reserved 


SCDEXTBA 


SCDIBDTF 
SCDCWRK 
SCDCWRKL 
SCDSEQ 
SCDREPLN 


SCDDBLOP 


SCDDBMPS 


SCDLOCOU 


4 


y 


uy 


He} 


4 


=) 


SCDNABND X*91" Wo STXIT ABEND to 
be processed (batch). 
No CICS journal 
(online) 


System indicator (online) 
Name BQu Meaning 
SCDSYSAB x¥*80! DL/I system abended 


SCDSYACT x*4Q! System task active 
SCDSYWAT x*20! System task waiting 
SCDRLRST x* 10? Reload restart 
SCDRELOD x*08? Standard reload 
SCDOPLG x'ot? Open records 


written on journal. 


count of tasks waiting for segment 
intent 


Save area for PC STXIT ABEND module 


Address of CICS interface 
address list 


Reserved for future use 


Pointer to SCD Extensicn 


ECTION* 
Address of DB log DTF 
Address of DB log work area 
length of DB log work area 
DB log sequence number 
Length cf DB log prefix 
DB log option byte 
Na me EQU Meaning 
SCDDBLO x'80" DB log DTF is open 
SCDDBLOR x'40' DB log open is 
required 
SCDDBASL X'02* Asynchronous logging 
specified by user 
XECB indicator 
Na me EQU Meaning 
SCD XECB x' 80? XECBs have been defined 


by MPC 


Current log count 
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146 


148 
150 


154 


158 


326 


327 


336 


340 


SCDTRFL1 


SCDTRFL2 


SCDISKCT 


SCDMTCNT 


SCDCMTCT 


SCDPD UP 


Name 


SCDTOUSER 


SCDAMOD 
SCDRETR 
SCDCPOS 
SCDVSAM 
SCDBHCL 
SCDUBDX 


Trace option byte 1 
ECU Meaning 


x*80' 

x'4or 

x'20°8 

x* 70" OPTION values 
X'O4? 

X'02* 

K'O1! 


Trace option byte 2 
EQu Meaning 


x's8ot OPTION value 


Number of DL/I tasks (packed) 


Number of times at maximum 
task {packed) 


Number of times at current 
maximum task {packed) 


Number of duplicate PSBS created 
(packed) 


SYSTEM _CON TENTS DIRECTORY EXTENSION -_SCDEXTDS 


The system contents directory extension is generated in the same manner 
as the SCD and is a logical extension cf it. 


Hex 


0 


= 


O 


14 
18 


1c 


24 


RECORD LAYOUT 


Dec 


0 


12 
16 


20 
24 


28 


36 


Name 


—_. 


SCDEREEN 


SCDEABEX 
SCDEABSY 
SCDEPCEX 


SCDETRAN 


SCDETRSV 


(unnamed) 


Reserved 


SCDETRTB 


(Batch Usage) 


Utility block builder 
entry point 


Address of STXIT AB processor 
Address of STXIT AB save area 
Address cf STXIT PC processor 


Address of additional 
work area 


Address of transient area 


Address of where batch application 
program's loaded 


Reserved for future use 


Current entry in trace table 
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28 
2c 
30 


Hex 


o £€ eo 


oO 9 


18 
1c 
20 
24 
28 
2c 
30 


438 


40 
44 


48 


RECORD LAYOUT 


Dec 


o £ os 


16 
20 


24 
28 
32 
36 
40 
44 


48 


SCDETRTE 
SCDETRTS 


Reserved 


Name 

SCDELECB 
SCDESECB 
SCDEFECB 
SCDEVS EX 
SCDEPASS 


SCDEIDST 


SCDEIDNX 
SCDEIDWK 
SCDEMSGT 
SCDETRTB 
SCDETRTE 
SCDETRTS 


Reserved 


4 
4 


4 


(Online Usage) 


Ln 
4 


4 


End address + of trace table 
Start address of trace table 
Reserved for future use 
Description. 

Logger I/0 ECB 

System enque ECB 

System function call ECB 

Address of DL/I EXCPAP processor 
Address of system call password 


Address of first active 
PPST ID in table 


Address of last active PPST ID 
Address of PPST ID search table 
Address of error message module 
Current entry in trace table 
End address + 1 of trace table 
Start address of trace table 


Reserved for future use 
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RECORD LAYOUTS 


Se DS ae Se ES eee eee 


The rest of this chapter provides layouts and field descriptions for the 
following records: 


Accumulaticn Header Record - DLZUCUMO 

Accumulation Record - DLZUCUMO 

Application Program Scheduling Record - DLZRDBLO, DLZRDBL1, and DLZBACKO 
Application Pregram Termination Record - DELZRDBLO, DLZRDBL1, and DLZ BACKO 
Checkpoint Record - [CLZURGUO 

Control File List Entry - DLZURPRO 

Data Base Log Kecord - DLZREBLO, DLZREEL1, and DLZBACKO 
TateysTime Table - DLZUCUMO 

Delete Work Area - DLZDLDO0 

Delete Work Space Prefix - DLZDLDOO 

DL/1 Control Record (DLZRECO) - CLZDLOCO 

Cump Header Record - DIZUDMPO 

Dump Record Prefix - DLZUDMPO 

File Cpen Record - DLZRDBLO and PLZRIBLI 

Reader Record - DLZURRLO 

Index Work Area - DLZXMTWA 

Input Data Record - DLZURRLO 

Input Work File Record - DLZURWF1 

List Ccntrol Block - DLZUSCHO 

Output Data Record - DLZURULO 

Cutput Header Record - DLZOURULO 

Output Record Containing Segment Prefix ~ DLZURGNO 
Output Table Record - DLZURGUO 

Cutput Work File Record - DLZURWF3 

Secondary List Entry - DLZURPRO 

Short Segment Table - DLZURULO 

Sorted List Bleck - DLZUSCHO 

SSA for GU Call by Key - DLZURGUO 

SSA for GU Call by RBA - DLZURGDO 

SSA for the XMAINT Call to the Analyzer - DLZXMTWA 
Statistics Record - DLZURULO 


* ACCUMULATICN HEADER RECORD - DLZUCUBO 


Hex Dec Name Ln Description 
0 0 HLENGTH 2 Length of cum teader record 
2 2 HSPACE 2 Zeros 
4 4 HCODE 1 Header record ID x'00* 
5 5 HFLG 1 Type of data set and organization 
Bit 5=0 EFSDS data set 
=1 KSDS data set 
6=0 HS data set 
=1 HD data set 
6 6 HLR ECL 2 Record length 
£ 8 HORG 1 Prefix organization code 
9 9 HPURDATE 3 Purge date for data base data set 
Cc 12 HPURTIME 4 Purge time for data base data set 
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jes 
1o 
Ive 


10 
11 
14 
18 
1A 


iC 


io 
1m 


nm £& NO & 


7 
20 
24 
26 
28 


¢ 


HDENAME 
HD BNAM E 
HDSID 
HDATE 
HTI FE 


HSEQ 


HBLKSIZE 


ACCUMULATICN RECORD 


Nane 
CLENGTH 
CSPACE 
CCODE 


CFLG 


CIDIN 
CDENAME 
CDSID 
CDATE 
CTIME 
CSEC 


CCOUNT 


CDATAID 


CDATAOCL 


CDATASEG 


APPLICATION PROGRAM 


DIZBAC KO 


Hex 


440 


8 Data set syubclic filename 
8 Data base name 
1 Data set ID 
3 Run date - YYDDDF 
4 Run time - HAMMSSOF 
2 Zeros 
2 Block size 
- DLZUCUMO 
in Description 
2 Length cf cum record 
2 Zeros 
1 X'*50* record identifier 
1 Type of data set and organization 
Bit Neaning 
5=0 ESOS 
=4 KSDS 
6=0 HS file 
=1 HD file 
2 Length of CDATAID field 
8 Data base name 
1 Data set ID 
3 Date - YYDDDP 
4 Time - HHMMSSOF 
2 Sequence number 
2 Number of data elements of CDATA 
Var KSDS prime key or ESDS RBN 
Var One or more 4 byte data elements: 
bytes 0-1 - offset into data set record 
bytes 2-3 - length of corresponding 
CDATASEG 
Var One or more segment data entries to 


be moved into data set record, 


SCHEDULING RECORD - DLZRDBLO, DLZRDBL1, ANTE 


in 


2 


Licensed Material - 


Description 


Length of record 


Property of IBM 


4 u 
5 5 
8 8 
E 14 


e APPLICATION PROGRAM 


DLZBAC KO 
Hex Dec 
0 0 
2-2 
4 4 
SS 
D 13 
E 16 

32 50 


e CEECKPOINT RECORD - 


Hex Dec 
0 0 
1 1 
7 7 
B 11 
Cc 12 
12 18 

13 19 

19 25 

1A 26 

22 34 


SPACE 
LOGFLAG 
SCHDCODE 
PSBNAMNE 


cIcsIpD 


Name 
FLENGTH 
PSPACE 


ALLOGFLG 


ALPSENAS 
ALIC 


TS KSTAT 


CICSID 


Nane 
RCHKPTID 
RCHKNAME 
RC HKNUOM 
Reserved 


RCHRKVOCL1 


Reserved 


RCHKVOL2 


Reserved 


RCKSEGNS 


Reserved 


Binary zero 

Record type code - x'08! 
Task ID 

PSB name 


Packed CICS Transaction ID 
(online only) 


TERMINATION RECORD ~- DLZRDBLO, DLZREBL1, AND 


In Description 

2 Halfword binary length of lcgical record 

2 Halfwerd reserved for system use 

1 Identifies this legical record as 
application program termination 
record; value is Xx*'Q7* 

8 PSB name 

1 TASK ID 

36 9 fullwords of Accounting from PSTACCT 
(online only) 

3 Packed CICS transaction I.D. 
(online only) 

DLZURGUC 

Ln Description 

1 Always x'0OO! 

6 Always C*CHKPNT® 

4 Checkpoint number - 1 - 9,999 (dac.) 

1 Comma, for message to SYSLOG 

6 If tape, file serial number of output 
volume one at checkpoint time. If DASD - 
XXXXXX. 

1 Comma, for message to SYSLOG 

6 If tape, file serial number of output 
volume two at checkpoint time. If DASD - 
XXXXXX. 

1 Comma, for message to SYSLOG 

8 Segment name of root segment in process 
at checkpoint time 

4 Reserved for future use 


Licensed Material - Property of IBM 44 


26 8638 
28 40 
2c ay 
2D 04S 
2E 8646 
11A 282 
126 294 
12a 298 
12E 302 
Note 1: 
Note 2: 


RCHKRECL 


RCHKPCSC 


RCHKP INR 
RCHKEYLN 
RCKEYVAL 
Reserved 
RCHKSEG 

RCHK ROOT 


RCHKREND 


236 
12 
4 

4 


Var 


Length of I/O area needed for the GU at 
restart time 


RBN of current record, if HD organization 
Number of checkpoint records {1 or 2) 

Key length of current segqment, if HISAM 
Segment sequence field value, if HISAM 
Reserved 

Total number of segments unloaded 
Total number of root segments unloaded 


Statistics table 


Dummy checkpoint record does not contain statistics table. 


Checkpoint message written to SYSLOG consists of message 
prefix DLZ381I followed by bytes 1 - 34 of the checkpoint 


record. 


e CONTROL FILE LIST ENTRY - DLZURPRO 


One cr more list entries may be contained in the control list. 


The 


control list may spread over one or more control list blecks. 


For data base list entry: 


Hex 


‘ae 


0 


£ 


10 
12 
13 


Dec 


0 


12 


16 
18 
19 


Name 


LEFETR 


LENAME 


LESLPTR 


LEC ENO 
LELEN 


LEFLG1 


For segment list entry: 


442 


Dec 


0 


Nane 


LEFPTR 


LENAME 


tt 
is 


= 


ie 
Is 


= 


Description 


List entry forward pointer (to next 
list element at same level) 


DMB name for data base list entry 


List entry sublist pointer (to list 
at next lower level) 


Input control card number 
Length of list entry 


Flag byte 1: 


B(0)=1 User specified scan list 
B(1) =0 Use SEQ scan method 

B(1)=1 Use SEG scan method 

B (6,7) =00 data base initially lcaded 
B (6,7) =10 data base scanned 


Description 


List entry forward pointer (to 
next list element at same level) 


Segment name for segment list entry 
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10 
12 
13 


14 


18 . 


12 


16 
18 
19 


20 
24 


LESLPTR 


LECRNO 
LELEN 


LEFLG1 


LEESDB 


LELSDB 


List entry sublist pointer (to list 
at next lower level) 


Input control card number 
Length of list entry 


Flag byte 1: 


B(0) =1 User-specified scan list 
B(1)=0 Use SEQ scan nethod 
B(1)=1 Use SEG scan method 


B(6,7)=00 data base initially loaded 
B(6, 7) =01 data base reorganized 

B (6,7) =10 data base scanned 

Used as intermediate storage 


Used as intermediate storage 


® DATA BASE LCG RECORD - DLZRDBLO, DLZRDBL1, AND DLZBACKO 


Hex Dec 
0 0 
2 2 
h 4 
Ss: {5 
6 66 
7. 7 


DSPACE 


DLOGCODE 


DLOGFLG1 


DLOGFLG2 


DLO GFLG 3 


it 


2 


NJ 


N 


Description 
Length cf record 
Zero 

Log record ID 


X*50* = Data base log record 
X¥'51* = Cld copy of a replaced segment 


Task ID 


Count of FSE records present 


Index maintenance record 

001 Physical replace 

010 Physical delete 

100 Physical insert 

110 Logical @delete 

000 POINTER maintenance record 
Last record of a change grcup 


ESDS data set 
KSDS data set 


HS organization 
HD organization 


New block call 


REPL call 


DLET call 
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10 
18 
20 


24 
28 
2A 


10 
12 
14 
16 
24 


tad (ad 
(ve) Le) 


40 
§2 


DIDLN 
DOFFSET 
DDATALN 
DCCCDE 
DPGMNAME 
DDBDNAME 
DDSID 
DCATE 
DTIME 
DSEQ 


DDATAID 


Var 


EFOINTER maintenance record 


DDAT 


A 4 


4 


2=1 ISRT call 
364=00 Modification by control region 
=01 Modification by message or batch 
message program 
=10 Modification by batch program 
5 Reserved 
6=1 First log record of a segment 
7=1 Last log record of a segment 


Length of DDATAID field 

Data offset from beginning of block 
Length of DDATA field 

DL/I completion code 

PSB name 

Data base name from the DMB 
File identification within the DMB 
Date - YYDDDF 
Time - HHMMSSOF 
Sequence stamp 


KSDS - KSDS prime key 
ESDS - Relative block number 


(DDATALN is set to At&t) 


New pointer value 


01d 


pointer value 


LOGICAL DELETE record (DDATALN is set to H'2') 


PHYSICAL INSERT record 


PHYSICAL DELETE record 


uy 


DDAT 


A 2 
2 


DDATA V* 
DFSEOFF 2 
DFSE 4 


DDATA 


y* 


Segment code and new delete byte 


Segment code and old delete byte 


(DDATALN is set to segment length) 


New segment data 


Offset to FSE 


New FSE value 
If more than one FSE changes, DFSEOFF and 
DFSE are repeated for each additional one. 


{(DDATALN is set to segment length) 


01d segment data 
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DFSEOFF 2 


DFSE 


4 


offset to FSE 


New FSE value 
If more than one FSE changes, DFSEOFF and 
DFSE are repeated for each additicnal cne, 


PHYSICAL REPLACE record (DDATALN is set 


DATE/TIME TABLE - DLZUCUMO 


DDATA 


y* 


yx 


DCOUNTER 


Hex Dec 
Q 0 
1 1 
2 2 
Ss 5 
4 4 
8 8 


e 
Hex 


0 


14 


Name 
TABFLAG1 


TABFLAG2 


TABFLAG3 


TABFLAG4 
TABFLAGS 


TABFLAG6 


DELETE WORK ARFA 


Dec 


0 


12 
16 


17 


20 


DLTP 


DLTW 


DLTW 


DLTW 


DLTL 


Old segment data 


New segment data 


varies with segment 


£0 segment 
- DLOGCODE 
- DLOGCODE 


length 


length) 


x's? 


x'50°% 


The last four bytes of every log record contain the 


log record sequence number. 


by one 
one. 


Ln 
1 
4 
4 
1 
4 
8 
- DLZDLDOO 
Lp 
WATID 8 
SC NE 4 
ANXT 4 
ASW 1 
APRI ..23 
PKOF 2 


Nu 


mbers are incremented 


- The sequence number of the first record is 


Used as table delimiter 


a 0 or 1 to denote routing for 


is table 


flags as follows: 


Description 

Blank. 

Contains 

the data base in th 
Contains 

Name Bit 
TABF3N 0 
TAB3DT 1 
Reserved for future 
Reserved for future 
Contains date/time, 


Description 


Record to LCGOUT if 1 
Purge date specified 


use 
use 


if specified 


Tdentification of work area 
(UMB/ACB/#) 


Address of prior scan exit 


Address of next WKA 


Switch indicating if this work 
area is the first in the work 
area space acquired from the 

buffer pocl 


Address of prior WKA 


offset from work area start to first 
byte of concatenated key 


Licensed Material 
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16 
18 
1C 


20 


24 
26 
28 


2c 


30 


34 
38 
3A 


3c 


40 


WY 


48 
4c 
50 
54 
58 
ye 
60 
62 
64 
68 


446 


22 
24 
28 
32 


36 
38 
4&0 


44 


48 


52 
56 
58 


60 


64 


68 


72 
76 
80 
84 
e8 
92 
96 
98 


100 


104 


104 


16n 


DLT WASZ 
DLTDMB 
DLTSPSDB 


DLTLPS DB 


DLTSLEV 
DLTKOF 


DL TESECL 


DLTEDMB 


DLTEPSDB 


DLTERBN 
DLTEOFF 
CLIEFLGS 


DLTELT 


DLTCLT 


DLINLT 


DLTTEMP 1 
DLTTENP2 
DLTTEMP3 
DLTTEMP4 
DL TSPSDB 
DLT RBN 
DLTROFF 
DLTRFLG 
DLT RWK 


DLTWALN 


Licensed Material 


eee 
4 


4 


002 
4 
16 


Size of current WKA 
Address of current DMB 
Address of scan-start PSDB 


Address of highest PSDB to he 
included in this scan 


Level of scan-start segment 
Re served 


Address of secondary list entry 
causing this scan 


DMB address of prior scan 


PSDB address of current segment in 
prior scan 


RBN of current segment in prior scan 
Reserved 
Reserved 


RBN of prior logical twin when 
follewing a logical twin chain 


RBN of current logical twin when 
following a logical twin chain 


RBN of next logical twin when 
following a logical twin chain 


Work area 

Work area 

Work area 

Work area 

Current PSDB this level 

Current RBN this level 

Reserved 

Deletability flags 

Work area - reserved 

Current information for each 
level specified for the data base. 
Mapped with DLTPSDB - DLTRWK above. 
Start of concatenated key. 


Length is the longest concatenated 
key for the DMB. 


- Property of IBM 


e DELETE WORK SPACE PREFIX - CLZDLDCO 


Hex 


0 


Dec 


0 


12 
16 


14 


4 


ame 


DLT BLKNM 


DLT BUFFA 


DLTNXTWS 
DLTPRIWS 


DLTSIZWS 


® DL/I CONTRCL BECORD 


(og 
w oO Ie 


fo » 


10 
13 
18 
1c 
1E 
22 
24 
28 
2c 


* DUME HEADER RECCRD - DLZ0 DMPO 


iw 
rt 
1a 


mo w © 


11 
16 
19 
24 
28 


34 
36 
40 


44 


45 


Name 
RECDATCR 
REC TIMCR 
RECDATRE 
RECTIMRE 
RECDATER 
RECTIMER 
RECNXRBA 
RECDOS 
REC VERS 
RECPTF 
RECLKSDS 
RECLESDS 


RECORGAN 


LE 


Reserved 


in 


& 


(DLZRECO) 


in 
3 
5 


var 


Description 


Block numkter of buffer (frog 
PSTBLKNM) 


Address of buffer prefix 
(from PSTBUFFA) 


Address of next work space 
Address of prior work space 
Usable size of this space 


Reserved 


DLZDLOCO 


Description 

Creation date - YYDDDF 
Creation time - HHMMSSTHOF 
Recovery date - YYDDDF 
Recovery time - HHMMSSTHOF 

Re served 

Reserved 

Not used 

DL/I component code (DLZ) 
Version and modification level (V1) 
PTF number 

KSDS record length (HISAM only) 
ESDS record length 


Data base organization 


Name Character Meaning 
RECHDAMS D HDAM 
RECHIDAM I HIDAM 
RECHISAM Ss HISAR 


Reserved to end of control interval 


Description 


Reserved for future use 
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1 #1 
2 2 
4 4 
Cc 12 
14 20 
15 21 
18 24 
1c 628 
24 36 
z6 38 
28 40 
ZA 82 
2c 44 
2E 46 
e 
Hex Dec 
0 0 
4 4 
5 5 
6 6 
8 8 
es 
Hex Dec 
0 0 
2 32 
4 4 
448 


IDOUT 
Reserved 


DBOCUT 
IDDNOUT 
Reserved 
DATEOUT 
TIMEOUT 
ODDNOUT 
IBLKSOUT 
ILRECODT 
OBLKSOUT 
CLRECOUT 
IKE YLENG 


IKEYPOS 


Character D 
Reserved for future use 


Name of the DMB devised from the Data 
Base Description (DBD) 


Contains the name of the key sequenced 
data set if this is dump of a KSDS 

data set 

Reserved for future use 

Julian date in packed decimal - YYDDDF 
Time in packed decimal - HHMMSSOF 
Contains the name of the entry sequenced 
data set if this is dump of an ESDS 

data set 


Contains KSDS control interval size if 
this is dump of KSDS data set 


Contains KSDS record length if 
dump of KSDS data set 


Contains ESDS control interval size if 
this is dump of ESDS data set 


Contains ESDS record length if 
dump of ESDS 


Contains KSDS key length if 
dump of KSDS 


Contains KSDS relative key 
positive if dump of KSDS 


DUME RECORD PREFIX - DLZU DMPO 


FILE OPEN RECORD - CLZROBLO 


DSIDOUT 
Reserved 
DSRECLN 


DATA 


Name 
DLENGTH 
DSPACE1 


DLOGCODE 


Ln 


4 
1 
4 
2 


Var 


in 


2 
2 
q 


ESDS REA identifier; unused if KSDS 
Character I if KSDS; 0 if ESDS 
Reserved for future use 

Record size + prefix length 


Physical record image 


AND DLZRDBL1 
Length of record 
Binary zero 


Record type code - X'2F* 
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5 5 

7 7 
10 16 
18 24 
20 32 
21 33 
z4 36 
28 40 
a 
Hex Dec 

0 0 

1 1 

2. 2 

4 4 

c 12 
14 2C 
15 21 
18 24 
1c 28 
24 36 
26 38 
28 40 
2A 42 
2c (44 
2E 46 
e@ INDEX 
Hex 

0 

4 


DLOGFLG1 


DSPACE2 
DPGMNAME 
DDBCNAME 


DDSID 


DDATE 
DTIME 


DCOUNT2F 


HEADER RECORD - DLZURFLO 


DLZXMTWA 


Name Ln 
Reserved 1 
IDIN 4 
RECLNCUT 2 
DBDNAME 8 
DDNAMET 8 
Reserved 1 
DATE 3 
TIME 4 
DDNAMEO 8 
BLKSIZEI 2 
LRECLI 2 
BLKSIZEO 2 
LRECLO 2 
KEYLENGI 2 
KEYPOSI 2 
WORK AREA - 
Nane 
XSAVYDSGA 
XSAVPCB 


Data set organization 
x*00! ESDS 
xX? Ou! KSDS 


Binary zero 
Data set filename (ACB) 
DMB name 


DSGACRNO (1 if HISAM 
ESDS; otherwise 0) 


Binary zero 
Binary zero 


Log record sequence number 


Description 

Reserved for future use 

Character R 

Size of output record, including prefix 


Name of the DMB derived from the Data 
Base Description (DBD) 


Name of key sequenced data set (KSDS) 
Reserved for future use 

Julian date in packed decimal -YYDDDF 
Time in packed decimal-~HHMMSSOF 

Name of entry sequenced data set (ESDS) 


KSDS record length * number of 
records/control interval 


KSDS record length 


ESDS record length * number of 
recordsycontrol interval 


ESDS record length 
KSDS key length 


KSDS relative key position 


Description 
Save lecation for caller's DSG 


Save location for caller's PCB 
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8 


10 
14 
18 
1c 


20 


24 


28 
2c 


30 


34 


38 


3c 
40 
44 
46 
48 
4A 


Ac 


50 
54 
58 
5C 
5D 


5E 


450 


8 
12 
16 
20 
24 
28 
32 


36 


40 
4h 


48 


52 
56 


60 
64 
68 
70 
72 
74 


76 


80 
84 
88 
92 
a3 


94 


XSAVUSER 
XSAVICPR 
XPHYSPP 

XWORKPCB 
XWCRKSAA 
XWORKPNC 


XDPSDBAD 


XDSECLST 


XDREAPTR 
XSP SDBAD 


XSSECLST 


XSREAPTR 


XNP SDBAD 


XDSDBAD 
XSSCBAD 
X PROT 
XRPREFIX 
XSPREFIX 
XN SEGLEN 


XNKEYLEN 


STACK 1 
STACK2 
STACK3 
XS AVSTC 
XSA VF ON 


XCALLFUN 


Save location for caller's I/O area 
For caller's call list address 

Save location for phys.f.Ptr 

Save locaticn for XMAINTs PCB 
Address of SSA built by DLZDXMTO 
XMAINTS function code for call 


Address of PSDB of index target 
segment 


Secendary list of index target 
segment 


RBA of index target segment 
PSDB of index source segment 


Secendary list of index source 
segment 


RBA of index source segment 


Address of PSDB of index pointer 
segment 


Index target segment SDB address 
Index source segment SDB address 
Length of protected data 

Record prefix length 

Segment prefix length 

Length of index pointer segment 


Sequence field length cf index 
rointer segment 


Return address for 1. level subr. 
Return address for 2. level subr. 
Return address for 3. level subr. 
Save status code 

Save location for function 


Call attritutes byte 


Name EQu Meaning 
ISLCAD x' gor Load mode 


ISASRT X*48O" ASRT call ISDLET x'20* 
DLET call ISISRT X*10* ISRT call 
ISREPL x'08' Function is replace 
ISUNEID X'02' UNLD call 
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SF 


60 
62 
62 
64 
64 
65 
66 


6A 


e 
Hex 


0 


95 XTSWIT1 1 
96 XWORKPUT 2 
98 XWORKOUSR 0 
98 XWORKDUS 2 
100 XWORKSEG 0 
100 KWORKCD 1 
101 XWORKDEL 1 
102 XWORKPTR 4 
106 XWORKKEY VAR 
INPUT DATA RECORD - DLZURRLO 
Dec Name in 
0 ESDS RBA y 
4 DSIDIN 1 
5 Reserved 3 
8 DATA Var 


Temporary switch 


Nane EQu Neaning 
XNOSUPR X*8or No suppression 
for this index 
XOLDSUPR X*'4age Old segment was 
surpressed 
XPTRONLY X* 20° PTR to XDS only, 
no CONCAT key 
XISPRIM x* 109! We found a 
primary index 
XNOLLFLD x'O1' Null value 
suppression 
XEXITRT x*' 02! Exit routine for 
suppression 
XDATACHN x' Qa! XNS changed in a 


replace call 
Begin of record for load 
XMAINTS I/O area for call 
Reserved 
Start of segment 
Segment code 
Delete byte 
PTR in index pointer segment 


Area for key in index pointer segment 


Description 


ESDS RBA identifier; 
unused if KSDS 


Character I if KSDS; 0 if ESDS 


Reserved for future use 


Physical record image. The first four 
bytes contain the relative byte address 
(RBA) of the next ESDS record containing 
overflow dependent segments for the root 
segment. The RBA is zero if no (more) 
ESDS records follow. The last byte of 
the data record contains a special 
physical code x*0'. If the data base 
contains only HISAM root segments and 
ACCESS=SHISAM, the physical code and RBA 
do not exist. 
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He 


0 


NO 


45 


INPUT WORK FILE RECORD - DLZURWF1 


CONSTANT PORTION OF ALL INPOT RECORDS 


x 


20 


30 


40 


2 


Dec 


0 


Name in Descripticn 

ALENGTH 2 Total length of input record (all 
records are variable length) 

ASPACE 2 Two bytes of zeros 

ALTYPE 1 Type of input record, as shown below, 

ALFLAG1 1 Flag byte 1 


B(0)-1 Initial load of segment 
-0 Reload of segment 
B(1)-1 LC sequence field present 
B(2)-1 Record produced during 
data base scan 
B(3)-1 Logical parent's concatenated 
key is present 
B(4)-1 LC sequence field is unique 
B(5)-1 Root sequence field is present 
B(6)-1 Logical child pointers are 
used by logical parent 
B(7)-1 Logical twin pointers to be 
resolved by type 20 
and 30 records 


ALFLAG2 1 Flag byte 2 - Sequence field length 
minus one 
ALFLAG3 1 Flag byte 3 


Other than Type 40 - Logical parent 
concatenated key length minus one 


Type 40 - Indexed field length 
minus one 


Use 


Generated once for each use of a segment as a logical 
parent 


Generated once for each use of a segment as a logical 
child 


Generated when a segment used as a logical child contains 
logical twin forward pointers and when the logical twin 
chain cannot be resolved by using the logical child's 
sequence field ; 


Generated when a segment used as a logical child contains 
logical twin backward pcinters and when the logical twin 
chain cannot be resolved by using the logical child's 
sequence field. 


Generated once for each time a segment is indexed 
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- CONSTANT PORTION OF TYPE 00, 


Hex 


8 


O 


14 


15 


m+ 


m+C 


Dec 


8 


12 


20 
21 


n 


n+4 


n¢12 


Nake ia 
ALEVTTR 4 
ALPDBNAM 8 
ALPSEG 1 
ALPCKEY var 


ALPCADDR 4 


ALCUBNAM 8 


ALCSEG 1 


- REMAINDER OF TYPE 00 RECORDS 


Hex 


m+10 


me7y 


m+15 


m+17 
m+1B 


m+1Cc 


Dec 


n+16 


n+20 


n+21 


n+23 
n+27 


n+28 


Name Ln 
ALCFL 4 
AL T0001 1 
ALPLSGOF 2 
ALPCCTR 4 
ALP DCB 1 
ALPSEQA var 


10, 20, 30 RECORDS 


Description 


Physical location of record in 
which segment resides 


Name of data base in which logical 
parent resides 


Logical parent's seqment code 
logical parent's concatenated key 


Logical parent's old address or 
zero 


Name of data base in which logical 
child resid2s 


Logical child's segment code 


Description 


Old value of logical child first 
pointer or zero 


X*00* 


Offset of seqment within record 
in which it resides 


O1d value cf counter field 
DCB number 


Logical parent's root segments 
sequence field. 


- REMAINDER OF TYPE 10, 20, 30 RECORDS 


Hex 
m+10 
mn+11 


Rts 


Name Ln 
ALFIL 4 
ALCSEQ var 
ALCM 4 


oO 


escription 


_——_ 


Logical child's sequence field 


Type 10 - Logical child's old 
address 


Type 20 - Logical child's o14 LTP 
pointer 


Type 30 - Logical child's old LTB 
pointer 


If Type 20 and 30 records not used, 
ALCM contains offset of segment in 
logical record 
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m+s¢4 nett4 


m+s#5 n#t+5 


B+S+6 n4#t46 


ALT123 


ALCDCB 


ALCSEQA 


1 
2 


- REMAINDER OF TYPE 40 RECORDS 


Hex Dec 
8 8 
Cc 12 

14 20 
m n 

m+ n+1 

ats n+t 
h+s net 


m+s+4G neted 


mts#C n#t#12 


M*#s+D n#t+13 


mes+11 n+t+17 


e® LIST CONTROL BLOCK 


Hex Dec 
1c 28 
1E 30 
20 32 
22 34 
24 36 


AIDBNAM 
AIFLDVAL 


AISC 


AISEQ 


AIS EGN 


AIFLDN 


AISDEN 


AISSC 


AILCNA 


AIDATA 


Name 


ENTLNGTH 


CCHELOC 


COMELNG 
NOMENT 


CHAINLOC 


it 
he 


var 


var 


var 


- DLZUSCHO 


ie 
ts 


N 


x°10" for Type 10 
K*20' for Type 20 
K*30* for Type 30 
DCB numker 


Offset to control data set entry 


Description 


Logical child's old address 
or zero 


Index data kase name 
Indexed field value 


Index segment's segment 
code 


Index segment's sequence 
field 


Index segment's name 
(second level) 


Indexed field name 
(1st level) 


Indexed segment's data 
base name 


Indexed segment's segment 
code 


Logical child's new address 


Indexed Segment source 
field data 


Description 


The length, in bytes, of each entry in 
the list 


2 The offset from the beginning of each 
entry te the key field 


2 The length of the key field 


The current number of entries in the list 


4 The location of the first of a chain of 
core blocks containing sorted list 


entries 
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28 


2c 


30 


40 


4Q 


48 


CH BACK 


ENTBLKSZ 


LASTLO, 
LASTHI, 
LASIMD, 
ENTLOC 


12 


The location of the last bicck in the 
chain 


The size of each core block used for list 
entries (includes the chaining fields). 
This value is calculated as follows: 


ENTBLKSZ = 16*ENTLNGTH+S 


Work areas used by INSRCH and 


LOCSRCH 


e OOTPUT CATA RECORD - DLZURULO 


fee) n in = 


Name Ln 
CONTOUT 4 
DSI DOUT 1 
Reserved 1 
DSRECLN 2 
DATA Var 


ESDS RBA identifier; 
if KSDS 


unused 


Character If if KSDS; 0 if ESDS 
Reserved for future use 

Record size + prefix length 

KSDS or ESDS physical record image. The 
first four bytes contain the VSAM 
relative hkyte address (RBA) of the next 
ESDS record containing overflow dependent 
segnents for the root seqment. The RBA 
is zero if no (more) ESDS records follow. 
The last byte of the data record contains 
a special physical code x'0'. If the 
data base contains only HISAM root 


segments and ACCESS=SHISAM, the physical 
code and RBA do not exist. 


« OUTPUT HEADER RECORD - DLZURULO 


Hex 


0 


—_> 


ND 


14 
15 
18 


ic 


D 


0 


12 
20 
21 


28 


Nane in 
Reserved 1 
IDOUT 1 
RECLNO UT 2 
DBDCUT 8 
IDDNOUT 8 
Reserved 1 
DATEOUT 3 
TIMEOUT a 
ODDNOUT 8 


Reserved for future use 
Character R 
Size of output record, including prefix 


of the DMB derived from the Data 
Descrivtion (DBD) 


Name 
Ba se 


Name of key sequenced data set (KSDS) 
Reserved for future use 

Julian date in packed decimal-YYDDDF 
Time in packed decimal-HHMMSSOF 


Name of entry sequenced data set (ESDS) 
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36 


38 
40 


42 
ay 


46 


Hex Dec 
0 0 
1 1 
Z 2 
4 4 
é 6 
E 14 
F TE 

13 19 
17 23 

1B 27 

19 31 

23 35 


456 


IBLKS OUT 


ILRECOUT 


OBLK SOUT 


OLRECOUT 
IKEYLENG 


IKEYPOS 


Name 
RGUSEGLYV 


RGUHSDF 


RGUHDRLN 


RGUSEGLN 
RGUSEGNM 


RGU SEGDF 


RGUPFC TR 


ITOTWFOR 
IOTWBACK 
TOPAR 


ITOOLD 


TOSEG 


in 
1 


Var 


KSDS record length * number of 
records/control interval 


KSDS record length 


ESDS record length * number of 
records/control interval 


ESDS record length 
KSDS key length 


KSDS relative key position 


OUTPUT RECORD CCNTAINING SEGMENT PREFIX - DLZURGUO 


Description 


Physical segment code for this 
record 


HSAM delete flag; always x*80' 
to denote HD Reorganization Unicad 
Utility 


Length of prefix portion of 
record 


Length of data portion of record 
Segment name for this record 


Delete flag of segment carried 
ferward 


Counter field of seqment carried 
forward 


Reserved for future use 
Reserved for future use 
Reserved for future use 


Old location of record 
carried forward 


Variable-length segment data 


OUTPUT TAPLE RECORD - DLZURGUO 


Dec Name Ln Description 
0 RGUSEGLV 1 Always x'00° 
1 RGUHSDF 1 x¥'80* for first table record and 
checkpoint table record 
x*90" for last tabla record 
2 RGUHDRLN 2 Length 
4 RGUSEGLN Var A tatle containing one entry for 


each segment type. 
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FIELD DESCRIPTICN CF RGUSEGLN 


Hex 
0 


8 

c 
10 
14 
18 
1c 


20 


24 


25 
26 


Hex 


Dec 


0 

8 
12 
16 
20 
24 
28 
32 


36 


37 


38 


OUTPUT 


RECORD TYPE 


Dec 


0 


to 


14 


14 


Name 
SEGNAMSE 

SM IMCHLD 
SAIMCHLD 
WKIMCHLD 
SMS BCHLD 
SASBCHLD 
WK SBCHLD 


TSEGTYPE 


SEGLE VEL 


SEGPHYCD 


TSEGLEN 


FILE RECORD 


00 AND 10 


Name 
CLENGTH 


CSPACE 
CTYPE 


CFLAG1 


CLCDBNO 


CLPLBN1 


CLCSEGNO 


CLPSEGN1 


in 
8 


Description 

Segment name 

Minimum immediate twins 
Average immediate twins 
Working entry for above 
Maximum subordinate children 
Average subordinate children 
Working entry for above 


Total segments for this segment 
type 


Segment level for this segment 
type 


Segment physical code 
Segment length including prefix 


length (high-order bit is cn if 
this is last entry) 


- DLZURWE3 


Description 


Total length of input record (all 
records are variable length) 


Two bytes of zeros 

Type of input record as shown below. 
Flag byte 1. All flags have same 
meaning as ALFLAG1 of input record, 


except: 


B(3) - Matching Type 1 record found 
for Type 0 record 


Logical child's data base name 
(Type 00) 


Logical parent's data base name 
(Type 10) 


Logical child's segment code (Type 00) 


Logical parent's segment ccde 
(Type 10) 


Licensed Material - Property of IBM 457 


10 


10 


14 


14 


15 


15 


16 


16 


CLP SEGNO 


CLC SEGN1 


CLCFRST 


CLTFWD 


CLCLST 


CLITBKWD 


Use 


Logical. parent's segment code 
(Type 00) 


Logical child's segment code 
(Type 10) 


Logical child first pointer or 
zero (Type 00) 


Logical twin forward pointer or 
zero (Type 10) 


Logical child last pointer or 
zero (Type 00) 


Logical twin backward pointer or 
zero (Type 10) 


Generated for purposes cf updating LCF, LCL, CTR 
LP 


fields in 


Generated 
fields in 


for purpose of updating LTF, LTB, LP 


@ SECCNDAFY LIST ENTRY - DLZURPRO 


Hex Dec 
0 0 
4 
c 12 
E 14 
F 15 
10 16 
12 18 
13 «19 
14 20 
458 


Name Ln 
LEFPTR 4 
LENAME 8 
LEFDLP 2 
LFFLG23 1 
LELCD 1 
LEFDLC 2 
LELEN 1 
LEFLG1 1 
LELCSC 1 


List entry forward pointer (to 
next list element at same level) 


Referenced data base name for 
secondary list entry 


Length cf logical parent 
concatenated key 


Flag byte 3: 


B (0) =1 Use type 20/30 records 
B(1)=1 Use LC sequence field 
B(6)=1 Use LP CK 

B(7)=1 Use LP old address 


Amount to be subtracted from LC 
pointer 


Position of LC pointers in prefix 
Length of list entry 

Flag byte 1: 

B({(0)=1 User specified scan list 
B(1)=0 Use SEQ scan nethod 

B(1)=1 Use SEG scan method 
B(6, 7) =00 data base initially loaded 
B (6,7)=01 data base reorganized 
B(6,7)=10 data tase scanned 


Segment code for logical child 


Licensed Material - Property of IBM 


15 


16 


z1 


22 


LEFLG2 


LESP 


1 Flag byte 2: 


B(0) -Prefix counter to be updated 
B(1)-LC first pointer to be updated 
B(2)-LC last pointer to be updated 
B(3)-LP pointer to be updated 

B(4)-LT forward pointer to he updated 
B(5)-LT backward pointer to be updated 
B(6)-Use LP concatenated key 

B(7)-Use LP old address 


2 Spare area 


SHORT SEGMENT TABLE - DLZURULO 


Hex Dec Name Ln Description 

0 0 Reserved 1 Reserved for future use 

1 1 SEGMCODE 1 Physical segment code 

2 2 PARSEGCD 1 Physical code of this segment's parent 

3 3 SEGMLEVL 1 Segment hierarchicai level 

4 4 Reserved 2 Reserved for future use 

6 6 SEG ELENG 2 Segment length, including prefix 

® SORTED LIST BLOCK - DLZUSCHO 
Hex Dec Name Ln Description 

0 0 ENCNT 1 The count minus one of the current number 
of entries in this block (currently, the 
maximum value for count is 16) 

1 1 CHAIN 3 The location of the next sorted list 
block in the chain. In the last block, 
this field contains binary zeros. 

4 4 BKCHAIN 4 The location cf the preceding scrted list 
block in the chain. In the first block 
on the chain, this field contains the 
location of the CHAINLOC field in the 
list control block. 

8 8 ENTRIES Var Up to 16 full entries in sorted order. 


He 
0 


Note: All blocks are the same size 
regardless of the number of 
entries contained. Unused space 
at the end of a block is not 


SSA FOR GU CALL BY KEY - DLZURGUO 


x 


Dec Hane 


0 KEYSEGNM 


zeroed. 
Ln Description 
8 Name of segment to be retrieved 
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e SSA FOR THE XMAINT CALL TO THE ANALYZER 


Hex 
0 


8 


Hex Dec 
0 0 
1 1 
.. »¥ 
4 4 
c 12 
14 20 

1c 28 


460 


10 
11 


FOR GU CALL BY RBA 


Dec 
0 
8 

10 


11 
15 


Dse 


0 
8 
10 
11 


KEYCODE 
KLEFTPAR 
KEY 


KRITEPAR 


Name 
RBASEGNM 
RE ACODE 
RLEFTPAR 
RBA 


RRITEPAR 


Name 

XSEGNAME 
XCCMMCOD 
XLEFTPAR 


RKEYVALD 


Name 
Reserved 
STATID 


STA TINO 


STA TDBNS 
STATIS DD 
STATOSDD 


STATAB | 


ER 
1 


Var 


1 


ic 


a 


foe) 


ty 


VAR 


STATISTICS RECORD - DLZURULO 


2 '*c! - command code 

1 "(' - left parenthesis 

1-236 key to be retrieved 

2 *y' - right parenthesis 
- DLZURGUO 

La Description 

8 Name of segment to be retrieved 
2 '*T!' ~ command code 

1 *(" ~ left parenthesis 

4 RBA to be retrieved 


*)*' - right parenthesis 


~ DLZXMTWA 

Description 

Name of index pointer segment 
'"*x' - command code 
*(' - left parenthesis 


Key value followed by right 
parenthesis *)'° 


Description 
Reserved for future use 
Character S$ 


Number of segment types in data set 
group 


Name of the DMB derived from the D&D 
KSDS filenare 
ESDS filenane 


A 16-byte table entry for each 
segment type in the data base 
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FIFLE DESCRIPTION OF STATAB 


Hex 


0 
8 


mow A 


Dec 


0 


SEGLEV 


SEGPCD 


SEGLN 


LB 
8 


4 


Segment name 

Total number of segments unloaded 
Segment level 

Segment physical code 


Segment length, including prefix 
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CHAPTER _13.__INTERNAL_DL/I_NACROS 


This section describes the executable processing macros that standardize 
some processing routines and DSECTS and lists the macros that provide 
the CSECTs. 


DLZBLDL 


This macro is used to search the core image libraries to determine if a 
specified load module is present. Optionally, if the phase is present, 
the length of it is calculated for the caller. The DOS/VS LOAD macro 
(TXT=NC) is used to obtain the directory entry information. 


OPERANDS 


The descriptions and valid parameters for the two keyword operands are 
as follows: 


® PHASE. The name of the phase in the core image library. 
= (reg) The register specified in parenthesis must point to the 
8-byte name (padded with blanks if necessary). 
='name!? The actual phase name may be specified enclosed in single 
quotes. 
= label This is the label of an 8-byte field containing the phase 


Name with any necessary blanks. 


Register 1 is the default which must he loaded with the address of 
the name. 


e LENGTH Specified if the caller desires the actual length of the 
load module to be calculated by this macro. 


(reg) The register specified in parenthesis will contain the 
. length in binary of the load module as indicated in the 
directory entry. Register 15 is invalid. 


label This is the label of a fullword in the calling program 
which will contain the length of the found phase on exit. 


If LENGTH is omitted, no length will be calculated. 


EXIT CONDITIONS 


R15 = 0 The phase was found and the length, if requested, has been 
returned, 
R15 = 4 The phase was not fcund. 
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Registers C and 1 are destroyed unless specified for the length 
register. All other registers are unchanged. 


This macro is used by some DOS/VS DL/I utility programs to request the 
initialization module to load all control blocks needed to process a 
specified utility PSB. A utility PSB is huilt by the application 
control bleck creation and maintenance utility for every user DBD except 
a primary HIDAM index, logical, or HSAM. 


The utilities which use this special function have 'OLU' in the first 
three bytes of the parameter card. When tatch initialization determines 
(by utility name - either DLZURPRO, DLZURGSO, or DLZURGPO) that the 
DLZBLKLD macro will be used, it does not load any control blocks. The 
acticn modules and PST and SCD are loaded, however. When the utility 
first receives ccntrol, register 1 contains the address of the PST. 


OPERANT 


When the utility reaches the point where blocks are needed, the DLZBLKLD 
macro is executed: 


{ (reg) ] 
PLZBLKLD DMB=[ label] 


The DMB operand indicates the address of the 8-byte DMB name for which 
blocks are required. Either the register number (reg) or the label of 
the field way te specified to indicate the address, If this operand is 
omitted, register 1 is assumed to contain the address of the DMB name. 


Tre expansion replaces the ending 'D* of the DMB name with a "U'. A 
CALL is made to ASMTDLI with the parameter list as follows: 


PC A(FONC) Address of function 
DS CL8 The name of the utility PSB 
FUNC PC cC*BLDB! Function 


EXIT CONDITIONS 


After execution of this DLZBLKLD macro, register 15 contains a return 
code: 


R15 = C The blocks were loaded successfully. Register 1 contains the 
address of the list of PCB addresses. 

R15 #0 The blocks were not loaded successfully. Register 1 contains 
the address of the name of the block which could not be 
loaded. 


Any previously loaded blocks have been overloaded and new buffer pools 
have been allocated. 
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When the utility program returns to the language interface at end-of- 
job, a return code is expected in register 15. If register 15 is 0, 
normal unload processing will occur. If register 15 is non-zero, no 
UNLD call will be made. This return is used when no blocks have been 
successfully loaded. 


DLZDEV 


This internal macro is used to determine the physical device type which 
has teen assigned to a specified logical unit. The contents of the PUB 
(physical unit block) are returned to the caller, 


CPERANDS 


{ (reg) J{ SYSxxx] 
DLZDEV [label ][,(reg) ]} 
{[ label ] 


e The first pcesitional operand indicates the address of the area to 
which tte 8-byte PUB entry is to be returned. Fither a register or 
the label of the area may be specified. If omitted, register 1 is 
assumed to foint to the 8-byte area, 


e® The second operand indicates the logical unit (system or pregqrammer). 
It may be specified as: 


SYSxxx Where xxx is the system or programmer logical unit, not 
to exceed SYS 243, 


{reg) The register number which contains the programmer unit in 
binary, from 0 to 243. Any register except 1 is valid. 


label The label of a halfword containing in binary programmer 
unit number from 0 to 243. 


If omitted, register 0 is assumed to contain the programmer logical unit 
number. 


EXIT CCNDITIONS 


Register 1 = the address of the 8-byte PUB information entry. 

If the specified device is assigned IGN or UA, or was an invalid unit 
number, byte 4 will contain X'FF'. In addition, the actual value from 
the IUB entry (X'FF! if UA, X'FE' if IGN) is in byte 6. 


If tte device is assigned, the PUB entry is returned. Byte 4 (AREA+4) 
contains the device type information. 


464 Licensed Material - Property of IBM 


DLZER 


This macro is used by scme of the modules in the application control 
blocks creation and maintenance utility. It provides an interface 
between the caller and DLZUMSGO which writes a specified message. A 
parameter list is created and a call is made to DLZUMSGO. 


OPERANDS 


LLZER ID=nn[{,INSERT=({(reg)},..-) ] 


{label} 
ID = nnn This is the message number in decimal to be printed. 
This operand is required. 
INSERT = (reg) This is the register containing the address of 


additional information to be inserted into the 
message. Any register except 1 or 15 may be used. 


label This is the label of the area containing additicnal 
information. 


This operand can be specified in sublist notation combining the two 
possible fcrmats. The snblist must be enclosed in parentheses. If only 


one register is specified, the additional set cf parentheses is also 
required: that is, INSERT=((6)). This operand is optional. 


EXIT CONDITIONS 


The requested message has been written. Registers 1, 14, and 15 have 
keen used. 


DiIzI Fest 


This macro is used by DL/I to post FCBs in an online environment. 


There are no operands. Register 2 must contain the address of the ECB 
to be posted. Bit 0 of byte 2 is set on. 


This macro is used by DL/I to communicate with an IWAIT routine 
(DLZIWAIT) to wait until an FCR is unposted. 


There are no operands. The PST must be addressable and register 2 must 
contain the address of the ECB that is to be waited for. The caller 
must have provided a USING SCD,15. Registers 14 and 15 are used to 
branch to the DLZIWAIT routine. 


Licensed Material - Property of IBM 465 


DLZTRCAL 


This macro is used by acticn modules to invoke the tracing facility. 
Refer to "Trace Invocation for Action Modules™® in Chapter 15 for a 
descripticn cf this macro, 


DLZTRPEN 


This macro is called by the DLZTRACE macro to parse parameter lists. It 
is similar to the DLZXPARM macro of DBDGEN (see "DLZXPARM Macro" in 
Chapter 6). In addition to the interface described for DLZXPARM, the 
length of each parameter list member is passed to the caller in the GBLA 
fields $PLEN(2§). 


‘The master partition controller (MCP) partition table is used to pass 
control information when processing batch partition application programs 
under MEFS (Multiple Partition Support). The MPC partition table resides 
in the transaction work area. There is one entry for every partition 
defined during system generation, except for the partition where the MPC 
resides. 


DIZTWAB 


This macro provides the mapping for the BPC batch partition control 
information for the DL/I task termination routine under MPS (Multiple 
Partition Suppert). This information resides in the BPC's task 
transaction work area. 


DLZXTAB 


This macro provides the mapping for the XECBTAB macro DEFINE, DELETE, 
and CHECK options under MPS (Multiple Partition Support). 


DLZXCB1 


This macro maps the DLZXCBn1 and the data that follows it. It is used 
to check data under MPS (Multiple Partition Support). 


BACRCS_USEDR TO CREATE DSECT 


—— toad ee —_’ al ae EA OL Ny ED AO aN RD 


The following macres are used to ganerate DSECTS for the DI/I control 
blocks: 


CLZBFFR 
DILZBFPL 
CLZDDIR 
DLZIDLI 
LLZPDIR 
DILZPPST 
TLZPSIL 
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DIZPST 
CLZSCD. 


Macros used only by utilities to generate DSECTs: 


DLZCKPT 
DLZDTP 
PLZIDBD 
DLZRECO 
DLZUCHDR 
DLZUCCLD 
CL ZOCR EC 
DLZUCUMC 
DLZUDHDR 
DLZU RGUF 
CTL ZUR HDR 
DLZUSTAT 
DLZTRENT. 


Miscellaneous macros: 


LLZHDSO Work area for DLZDHDSO 
DLZMSG Messages for utilities 
DLZQUATE Register equates 

DLZSBIF Work area for DLZDBHOO 
DLZUMSG Messages for utilities 
DLZWA Work area used by DIZDLDOO 
CLZXMTWA Work area used by DLZDXMTO. 
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FLOW _ CF CONTROL 


> EE AD DED Sa ae ND KE nD 


Low level Code/Continuity Check (LLC/CC) in DL/I is used as a subroutine 
of a user-written application program that runs under DOS/VS. Control 
passes to and from the subroutine using standard calls. 


LLCyvcc in DLvI is a single control section (CSECT) which is structured 
into seven modules (see Figure 14.1). The entry modules 000 fcr update 
and 001 for initial generation of low-level codes have sultiple entry 
points for call statements issued by the user-written application 
program, that is, a separate entry point for each source language that 
is supported. All modules have only a single exit point, all lower 
level modules 002 through 006 are only entered at one point, 


All modules assemble and issue DL/I calls. The entry point for DL/I 
depends on the source language that is identified by the entry point 
into LIC/CC in DL/I. The language bits in the LLC/CC executicn control 
block {LECB) identify the scurce language of the application program. 

If an unexpected status code of DL/I is reported in the appropriate PCB, 
the error bits in the LECB are turned on, and control is routed back 
directly to the entry modules 000 or 001. 


LLcCyvccC in DL/I consists of the following modules: 


e Module 000 is the entry module for maintenance of low level codes. 
It passes cecntrel to module 002 for execution. 


e Module C01 is the entry module for initial generation of low level 
codes, It passes control to module 002 for execution. 


*® Mecdule 002 is the ccmmon mainline control module. It follows down a 

, hierarchical path of a product structure. For actual explosion, 
ccntrol is passed to module 003. If a particular hierarchical path 
is exhausted, module 004 is executed to process a parallel path on 
the same hierarchical level. If all parts cn the same level are 
processed, module 905 steps up one level to identify a parallel path 
on the higher level, If the original starting level is reached, the 
cemplete structure is processed, and control is returned to module 
000 or 001. Module 002 also detects lcops and executes continuity 
check recovery in medule (C06. 


e Module 003 explodes a particular part into all its components. 
Centrol is passed from and to module 002. 


e Module C04 removes the part which has previously been processed from 
the hierarchical path thus opening a new hierarchical path via the 
next parent part on the same level. Control is passed from and to 
module 002. 


® Module C05 steps up one level and removes the higher level part from 
the hierarchical path to open another path. Control is passed from 
and to module 002. If module 002 is not able to follow a new path on 
this level, module 005 may be executed repetitively. 


® Module 006 handles restoring of old low-level codes if a continuity 
check is detected. Control is passed to and from module 002. 


For a more detailed description, see the relevant HIPO charts. 
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Entry points Entry points 
DLZNNCA 000 DLZNNGA 001 


DLZNNCC Maintenance of DLZNNGC Initial Generation 
DLZNNCP Low Level Codes DLZNNGP of Low Level Codes 





002 
Vertical Explosion 
Control 


003 004 005 006 
Next parent on Next parent on Continuity Error 
same Level higher Level Handler 


Explosion of a Part 





Figure 14.1 Structure of LLC/CC in DL,/I 


MODIFICATION AIDS 


EXTERNAL NAMES 


LLC/CC in DLyI uses external names in the directories and libraries of 
DOS/VS. The following table presents a list of all external names which 
are used. The user should obtain a DSERV listing to avoid duplicate 
names, 





Type of program ] | { Directory] Entry ] CIL 
JA. books 1£&. books fentries |points ! 


JExecution program {DLZNN 
1 1 


{ 
1 
1 
r 


i 
1 
1 i 
i 
| 











— —~———--—-------| 


DLZ NN | DL ZNN* | DLZNNCA* 
| DLZNNCC* 
| DLZNNC P* 
| DLZNNEC * 
| DLZNNGA* 
| DLZNNGC* 
{| DLZNNGP* 
! 

{ 

{ 





j Initialization 
{program for tte 
{control data base 


rc a ae ee ee ae ee ee re ER A A a A ee 


DLZNNICT DLZNNICT DLZNNICT 


ee ee en eee 
ie «am ae at amg “SS ame 28 


{ 
| 
1 
1 
| 
| 
1 
{ 
* May be modified by the user during customization. 
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LLC/CC EXECUTION CONTROL BLOCK (LECB) 


The LECB of LLCYCC in DL/I is the focal point for all information 
related to actual operaticn of the execution program. It consists of 16 
bytes which are subdivided inte 4 fullwords. An entry point DIZNNEC is 
provided so that an application program may access the contents of the 
LECB. 


The LECB contains the following information: 


1. Identificaticn porticn (fullword 0): 
Bytes 0 through 3: C'LECB*=x' p3c5C3Cc2! 
This identifier facilitates location of the LECB in a main storage 
cump. 


2. Execution control portion (fullword 1): 
Eyte 4: 


e Bits 0 through 3: Run type bits 
Bit 0 and bit 1: Reserved 
Bit 2: 1 if IG run 
Bit 3: 11if U run 


e Bits 4 through 7: Not used 
Byte 5: 


e Bits 0 through 3: Language bits 
Bit 0: Reserved 
Bit 1: 1 aif Assembler 
Bit 2: 1 if COBOL 
Bit 3: Tif PL/I 


e Bits 4 thrceugh 7: Not used 
Byte 6: Status byte 


* Bits 0 through 3: Completion bits (mutually exclusive) 
Bit 0: 1i1f not completed, abnormal condition 
encountered 
Bit 1: 1 if component requires no change {UJ run only) 
Bit 2: 1 if part is already precessed (IG run only) 
Bit 3: 1 if part has no components 
(IG run only, and only if bit 2 is off) 


Besides its function as an indicator, bit 3 also 
serves to transfer information whether a parti-~ 
cular part in an explosion sequence has comronent 
parts. Bit 3 is turned off in module 002 before 
entering module 003. If no ccmponent parts 

are found during the execution of module 003, 

the bit is turned on. Upon return to medule 

002, the bit is tested to decide whether 

module 004 must he called. 


e Bits 4 through 7: Error bits, extending completion bit 0. 
A single error bit does not reflect a particular error 
condition, therefore, the hexadecimal representation of 
the total bit pattern in the status byte has to be analyzed. 


x* scr Parent part not found 

x*81! Component part not found (U run only) 
xX* 84 Continuity check for parent part 

x*85!° Continuity check for any compenent part 
x? a7 Input parameter in error 
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x" 88? Unexpected DL/I status code for parts data base 
X'SaA? Unexpected DL/I status code for control data base 
x' ect Both error conditions xX*84' and xK'88! 

x* apt Both error conditions X'85* and x*88? 

X'8E! Both error conditions X*84" and X*S8At 

X'SFt Both error conditions X*85* and X*BA* 


Byte 7: Not used 


tas 


» Farameter list portion (fullword 2): 


Bytes 8 through 11: Address constant pointing to the parameter list 
which has been previously submitted to DLyI by LLC/cc in DL/I. 
Contents is defined hexadacimal zeros prior to the first run through 
ILC/CC in DL/I. The address constant is not affected by insertion 
cf locators if the application program is written in PL/I. 


4, FCB save area portion (fullword 3): 


Bytes 12 through 15: Address constant pointing to a 64-byte save 
area for a PCB. This save area is initialized to blanks (x'40'), 
however, in case of an unexpected DL/I status code, the related PCB 
is saved into this save area. The PCB is stored left justified. If 
the length of the PCR exceeds 64 bytes, the exceeding data is 
truncated. 


The contents of the status bytes is externally represented by the return 
codes of LIC/CC in DL/I. 


IG stands for “initial generation of lew level codes", U stands for 
*update of low level codes", 


The LECB is located at the very end of the code of LLC/cc in DLA. 
Therefore, the last byte of LLC/CC in DL/I may be addressed DLZNNEC#15. 


LANGUAGE CCNSITERATIONS 


During PSB generation, the source language of application programs using 
IL/I facilities is defined in the PSBGEN statements. While COBOL is 
handled like Assembler, the PCB has a different layout if PL/I is 
specified. Therefore, LLC/CC in DL/I has to use different entry points 
into DI/I depending on the source language of the invoking user-written 
applicaticn pregranm. 


The entry routines of the execution program of LLC/CC in DL/I offer 
different entry pcints. The x identifies initial generaticn mede (G) or 
update mode (C). Six different entry points are available for transfer 
cf ccntrol: 


e DLZNNXA and DLZNNxC are the entry points for application programs 
written in Assembler or COBOL, respectively. No special precessing 
is required. 


® DIZNNxP are the entry points for application programs written in the 
PL/I Optimizer language. Upon entry, the address constants in the 
parameter list pointing to the locators of the parameters transmitted 
are replaced by the addresses which are stored in the respective 
locators. 


For each source language, the appropriate language bit in the LLC/CC 
execution control block (LECB) is set upon entry. 
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When a DL/I call is issued, the language bits are tested to specify the 
right entry point in DL/T: ASMTDLI, CBLTDLI, or PLITDLI. If the source 
language is PLyI, the parameter list is encoded to transfer address 
constants pointing to locators rather than pointing directly to the 
parameters. 


SAVE AREAS 


LLcC/cc in DI/I contains a set of save areas which facilitate tracing 
main storage dumps. The most important save areas are: 


* Standard save area, addressed by register 13. Symbolic name is SAVE. 


e Return addresses for subroutines, that is, contents of register 14, 
Symbolic names are CALLSV, PARMJUSYV, INSRSAVE, SETUPSV, MOO2SV 
through MOO6SV. Save areas M002SV through MO06SYV are reset to 
hexadecimal zeros when the respective modules M002 through M006 are 
left again. 


e Save area for the contents of register 1 when entering LLC/CC in 
DL/I, that is, address of the parameter list submitted from the 
application program. Symbolic name is RISAVE. 


e Save area for the leftmost 240 bytes of a PCB if an unexpected DL/I 


status code is enccuntered. Symbolic name is PCBSAVE. The address 
of PCBSAVE is also available in fullword 3 cf the LECB. 


REGISTER USAGE 


RO: Work register 

RY: Work register, address of parameter 
lists during parameter transfer 

R2: Address of parameter list when preparing 
parameter transfer 

R5:3 Work register 

R6: Address of PCB for parts data hase 

R7: Address of PCB fer control data base 

R8: Base register 

R9: Secend hase register 

R12: Reserved 

R13: Address of register save area 

R14: Standard return address 

R15: Standard linkage register 
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DL/I offers a tracing facility as a tocl to be used in problem 
determination. . 

The tracing facility consists of a trace module (DLZTRACE) with 
Assembler macro options to provide the type of tracing desired. After 
being link-edited into a core image library, the module is loaded by 
DL/I initialization if the user has specified tracing. 


All DL/I action modules have a macro inserted into the source code at 
defined places (trace points) which generates the necessary instructions 
to communicate with DLZTRACE, On invocation, the tracing module decides 
if tracing should be made at the current point and, if so, records the 
significant information. 


HOW_TO_USE_THE TRACING FACILITY 


a ae eae So ae 


The first step in using the DL/I tracing facility is to define what 
information shculd be traced in order te identify or solve the problen. 
In addition, the user must determine when tracing should cccur; that is, 
at what trace points in the execution of the DL/I code information 
should be recorded and for which user calls. The following guidelines 
and examples should help in making these decisions. 


TRACING IN A BATCH ENVIRONMENT 


Which Calls_to Trace ina Batch Environment 


First determine which calls are to be traced. The decision will be one 
of the following types. Find the type and then note which trace macro 
operands should be coded. Refer to "Defining the Tracing Facility" for 
detailed syntax specification information. Note that cnly DL/I data 
base calls can be traced; PCB, TERM, UNID, GSCD, and online system calls 
cannot be traced. 


ALL calls: Do not code the CALLCON, STRIKEY, STOPKEY, or TRCECON 


PE > A SES ED 


operands. 


SPECIFIC calls not necessarily sequentially issued to DL/I, but that 
have a similar characteristic. Determine if they fall into one of the 
classes below, and code the indicated CALLCON operand parameter: 


Parameter _List_of the 
Similar Characteristic CALLCON Operand 
1. <A similar value in the key feedback area Code the KEYFDBK 
of the PCR present at the beginning of parameter list. 
each call. 
2. A specific PCB identified by the name of Code the DBPCBDBD 
the DBD it references (the DBDNAME cperand parameter list. 


of the PCB macro in PSBGEN). 
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3. A similar call function used by the calls. Code the CALLFUNC 
This option allows groups of calls to te parameter list. 
identified, for example, all get calls, 
all get hold calls, or all update calls. 


4. A combination of a specific PCB used in Code the DBPCBDBD 
making the calls and the call function. and CALLFONC 
parameter lists. 


alls (for example, each of 10 successive calls) identified 


1. The relative call numbers of the first of the range and the last. 
For example, if the 6th through the 15th calls are to be traced, in 
the CALLCON operand, specify (6,LE,CALLNUM,LE, 15). 


2. The key feedback value in the PCB at the start of the first call of 
the range. Code the STRTKEY operand. In addition, the beginning of 
the range can be further qualified by the DBPCBDBD and/or CALLFUNC 
parameter lists of the CALLCON operand. To identify the last call 
cf the range, specify the STOPKEY operand. In STOPKEY, specify 
either the number of calls to be traced, or the value of the PCB key 
feedback area at the end of the last call to be traced. 


ONE SPECIFIC call: Identify this call in the same manner as the first 
call of a range as described ahove. 


If the problem being traced does not occur with easily identifiable 
calls, but with certain internal DL/I conditions, another method is 
available to define when tracing should occur. The following 
specifications are possible: 


1. Trace at cartain points within DL/I execution whenever a specific 
physical file is being processed. For example, to perform tracing 
when the secondary index data base SINDEX@D is being used to service 
a call, specify TRCECON=(LDDIRSYM, FO,SINDEX@D). 


2. ‘Trace those calls that work with a particular segment type. For 
example, to perform tracing when the. physical code of the current 
SDB (as found using JCBLEV1IC and LEVSTB) is equal to X'OA* at the 
activated trace points, specify TRCECON=(SUBPHYCD,£Q,X'OA*t). 


3. Trace those calls in which the RBA in PSTBYTNM is a specified value. 
For example, specify TRCECON=(00004120,LE,PSTBYTNM,LE,5530). . 


Combinations of the above operands are possible. For example, the 
following instructions can be given to the trace module: trace if 
DDIRSYM is DMBNAM@D and the segment in that data base has code xX'03* and 
the current value in PSTBYTNM is greater than 00001280. 


The parameter values are checked during the execution of the call. At 
some trace peints, the values may not be meaningful. For example, at 
the very beginning of a user call the PSTBYTNM value may be zero, so no 
tracing would cccur, unless the zero value happened to satisfy the 
PSTBYTNM value(s) specified in the tracing macro. 


There are several ways to define what information should be traced at 
certain points of the DL/I execution. The selection of one or more of 
these options should’be based on the type cf problem that has cccurred. 
For example: 
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1. If the problem has not yet been isolated as occuring within DL/I, or 
if the user call receives unexpected return information, the 
USERCALL option should be used to trace the input the application 
program is giving to DL/I and the resulting output. The problem 
could also be further investigated by specifying CURRPOS, which 
gives the user's current position within the data base, 


2. If the problem has been isclated as occurring within the retrieve 
module (DLZDLROO) or concerns insert positioning, the RETRIEVE 
option provides information concerning the events of the call. 


3. If the data base does not appear to have been updated as the user 
requested, the BHINTF and/or VSAMINTF options can be used to trace 
exactly which calls have been made to the DL/I buffer handler 
(DLZDBHO0) and/or to VSAM, The return status in each case is given. 


4. If secondary (cr primary) indexes appear to have been incorrectly 
updated, specify the INDEXTRC option. This provides information 
concerning the updates to index data bases. 


5. If it is necessary tc trace the path the call takes through DL/I, 
the MODTRACE option lists the time of entry to each module. 


If the situation does not fit any of the above and assuming that many 
calls need not be traced, all cf the options (except ONLINEBH) can be 
specified. Some options, however, such as RETRIEVE and CURRPOS, could 
result in large traca listings if many calls are traced. The CALLCON, 
STRTKEY/STOPKEY, and/or TRCECON operands may be used to omit the 
unnecessary or uninteresting calls. In addition a SHORT trace form is 
available for all cptions. 


Batch Trace Output 


The user should decide which storage medium shculd be used for the 
tracing cutput. Two possibilities are available: 


1. The SYSLST parameter of the OUTPUT operand causes each trace entry 
to be printed cn SYSLST as it is being created. Thus, whenever a 
DL/I action module call to the trace facility is made, the 
information is printed on SYSLST before control is returned to the 
calling module. This option is the most useful for a debugging 
situation when no abnormal termination dump is expected. 


2. The INCORE option of the OUTPUT operand bnilds a table, of user- 
specified size, to hold all trace entries. This table is never 
written onto any output device, except if a storage dump is 
produced. When the table is filled with entries, a wrap-around 
condition occurs and the oldest entry in the table is overlaid. A 
table large encugh to hold at least one entry must be defined. 


TRACING IN AN ONLINE ENVIRONMENT 


The situation in an online environment is different from that in batch; 
the purpose of tracing may, therefore, also be different. There are two 
major reasons to trace online DL/I calls: 


e To collect information in case a future error occurs by means of a 
general trace run continuously. 


* To aid in debugging an cnline application program or to trace a known 
System failure by means of a specific trace. 
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It is assumed that the user wants to trace all DL/I calls, and the 
CALLCON, STRTKEY/STOPKEY, and TRCECON operands should be omitted from 
the DLZTRACE macro generation. 


The CPTION parameter selected depends on the suspected problem: 


e If the timing seems to be the problem, in other words, tasks seqn to 
be "suspended", the ONLINEEH option should te selected. 


2 If "bad" data base updates have occurred, the BHINTF and/or VSAMINTP 
options should be selected. 


e The other options are available, but probably do not help sclve a 
general protlen. 


To limit the amount of information traced at each trace point, the SHORT 
parameter of the TYPETRC operand may be specified. Performance 
degradation is to be expected when the tracing facility is activated. 


Online Debug 


If a known problem occurs on demand and can be isolated toa particular 
applicaticn pregranm, the tracing facility can be used in a similar way 
to in the batch environment. Refer to the section "Which Calls to Trace 
in a Batch Envircnment" for instructions and examples, All of the batch 
information applies equally to the online environment with the following 
additional function. 


In defining which calls are eligihle to be traced in an cnline 
situation, an additional parameter list may be specified to limit the 
trace to only those calls made by a certain PSB. The operand CALLCON 
should be coded in the DLZTRACE generation with the parameters 
(PSBNAME,FC,YOURPSB). In addition, the DBPCBDBD and CALLFUNC parameters 
may also be specified to limit the calls to be traced. This means, for 
example, that the following instructions can be given to the tracing 
facility: Trace only those calls made by PSBNAM1 and the PCB in that 
PSB identified by DBDNAM2 and whose call function is UPD (ISRT, DLET, or 
REPL). 





In the normal cnlire envircnment, that is when not debugging, the trace 
output can only be kept in storage. Be sure to indicate a table size 
large enough tc keep all the entries needed. 


Because the entries are not transferred to an output storage device, 
they are cnly available by means of a storage dump. The DL/I formatted 
dump program prints the latest 10 entries when a DL/I or CICS abnormal 
termination occurs. 


If the online system is ina debug environment, the SYSLST output option 
may be used. This means that only one task making DL/I calls can he 
executing at any one time. If more than one task is executing, 
unpredictable results occur, because no provision is made to force 
single-threading of trace calls due to SYSLST If. 
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The tracing facility is defined hy specifying the desired operands in 
the DLZTRACE macro. The user may choose the type(s) of traces desired, 
when he wants tracing to occur, and the output destination. For the 
case when the user wants more direct ccntrol, a user exit routine may be 
provided. 


TRACE DEFINITICN MACKO 


The tracing module DLZTRACE has the macro operands shown below. When 
coding the DLZTRACF macro, the general rule is to use an operand or 
operands from either group (1 or group (2 or group (3 together with an 
operand or operands from group (4. In group (3, code, as required, one 
cr more of the operands CALLCON (with cne ocr more parameters), STRTKEY, 
and STOPKEY. In group (4, code the OPTION operand, with at least one 
parameter and the remaining operands as required. 


DLZTRACE {[ CALLCON= ([ value1,ro1, JCALLNUM, ro2, value 2) ,] {! 
{ CALLCCN=({key1,ro1, JKEYFDBK,ro2,key2), ] . (2 
[CALLCCN=[ (PSBNAME, FQ,ps bname) , } 4 


f (DBPCBDBD ,EQ,dbdname) , ] 
[ {CALLFUNC, EQ, func), }] 


[STRIKEY=key, } 
{ STOPKEY={key}, ] 
{nn } 
CPTION=[ US ERCALL ] (* 
{ ,MODTRACE ] 
{, RETRIEVE } 
{ ,CURRPOS] 
[ ,-VSAMINTF ] 
{ ,BHINTF] 
[,INDEXTRC] 
{ ,ONLINEBH } 
[ ,TYPETRC= {FULL } ] 
{SHORT} 
{,-TRCECON=[ (DDIRSYM,EQ,dmbname) ] 
{, (SDBPHYCD, EQ, physcode) ] 
{,({ cbat,ro1, ]PSTBYTNM,ro2,rba2) } 
{32} 
[ ,OUTPUT={ (INCORE, {nn} )} ] 
{ SYSLST } 
[ ,-TRACSIZ= {256} ] 
{nn } 
[ ,OSREXIT=entrypt ] 


The abbreviated parameters used above have the following general 
meanings: 


e value1,value2, represent call numbers and must be decimal self- 
defining terms. 


e rotl,ro2 represent relaticnal operators, for example, GT, GE, LE, etc. 
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e key1,key2,key represent values in the key feedback area. The values 
can be expressed in either hexadecimal {X'...') or character (C*... ') 
nctation. 


*® physcode represents a segment code in hexadecimal notataticn (X'nn'). 


e rtat,rba2 represent relative byte addresses. They are hexadecimal 
values but are coded without an XK or quotes. 


The following description of the macro operands is primarily 
syntactical, For a general discussicn concerning the purpose of each 
operand and hints cn how to use the facility, refer to "How to Use the 
Tracing Facility." 


CALLCON Operand 


This operand states the call conditions that must be satisfied before 
any tracing cccurs during the call. There are five possible conditions 
that can be stated with the fcllowing parameters: 


CALLNUM - the relative call occurrence, the first DL/I call being 
number 1, The value entries represent the call numbers 
and must he decimal self-defining terms. If a range of 
calls is desired, all five parameters must be specified. 
Value1 must be less than value2. Only relational 
operators LE or LT are valid for rot and ro2. If only 
one comparison value is required, the first two 
parameters must be omitted, In this case, the relational 
operator ro2 can be LT, LE, EQ, GE, or GT. If this 
operand is specified, nene of the other four CALLCON 
parameters are permitted. In addition, any 
STRTKEY/STOPKEY specification is ignored. 


K EYFOBK - the current value of the key feedback area in the user's 
PCE at the beginning of a call. The key value(s) can be 
expressed in either hexadecimal or character notation as 
indicated by the leading XY or C respectively. The key 
itself must be enclosed in single quotes. The length of 
this operand value is limited by the DOS/VS Assembler to 
256 bytes. If a range of keys is desired then all five 
parameters must be coded. Only LE or LT are permitted 
for rol and ro2. No checks are performed on the key 
values, If one key comparison value is required, the 
first two parameters must be omitted. The valid 
relational operators in this case are LE, LT, EQ, GT, or 
GE. If this parameter list is specified, then no other 
keyword list in the CALLCON operand is permitted. In 
addition, the STRTKEY/STOPKEY operands are ignored, 


PS ENAME - the name of the PSB used by the task issuing the call. 
This is only meaningful in an online environment. The 
hame specified must be from 1 to 7 characters in length. 
No check is made to determine whether the name is that of 
a valid PSB. 


DBPC BDED = the name of the DBD directly referenced by the PCB used 
for the call (the value of the DBDNAME operand in the PCB 
macro of PSBGEN). The name must be from 1 to 7 
characters in length. No check is made to determine if 
it is the name of a valid DBD. 
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CALL FUNC - the call functicn specified for this call in the user's 
parameter list. The following functions are valid and 
result in tracing the named call functions: 


G - GU, GN, GNP, GHU, GHN, GHNP 
GH -  GHU, GHN, GHNP 
UPD - ISRT, DLET, REPL 


In addition, any one of the actual DL/I call functions 
may be specified. 


The last three parameter lists may be combined. All of the named 
CALLCON parameter conditions must be satisfied before the decisicn is 
made to trace the call. 


STRTKEY Operand 


The STRTKEY operand specifies the first call to be traced in a sequence 
ef calls. It is ignored if either the CALLNUM or KEYFDBK parameter 
lists are specified in the CALLCON operand. 


If any or all of the PSBNAME, DBPCBDBD, or CALLFUNC parameter lists are 
specified in the CALLCON operand, these ccnditions must be satisfied 
before the STRIKEY value is compared. If the key value specified is 
equal to the value in the PCB key feedback area at the beginning of a 
call, tracing is activated for the call and all succeeding calls until a 
STOPKEY condition is satisfied or until DL/I terminates. 


The key value may be either hexadecimal or character format as indicated 
by tke initial X cr C respectively. The key value itself must be 
enclosed in single quotes. The length of the operand value is limited 
to 256 bytes by the DOS/VS Assembler, 


a ee ee ee a ea ae a oe 


This operand is used to stop call tracing that was started by the 
STRTKEY condition being fulfilled. It is ignored if CALLNOM or KEY FDBK 
parameters of the CALLCON operand are specified or if the STRTKEY 
operand is cmitted. Every call after the one that started the sequence 
is checked to determine if the STOPKEY condition is met, While the 
STRTKEY condition is operative, CALLCON condition checks are not 
performed. Once the STOPKEY condition is satisfied, the STRTKEY 
conditicn is again checked. 


The value of the operand may be a key value in hexadecimal or character 
notation, as indicated by the initial xX or C respectively, enclosed in 
single quotes. This value is compared to the contents of the key 
feedtack area in the PCB at the beginning of a call. 


A decimal self-defining term, which indicates the number of calls to be 
traced from the first call that satisfies the STRTKEY conditions, may 
also be specified. 


OPTION Operand 


This operand may be specified with one or more parameters. Each option 
has a predefined set of fields or tables that are traced at predefined 
points in the DLyI code. 
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The options selected cause the corresponding trace points within the 
DL/I action modules to be eligible for activation based on any call 
condition parameters, as already described. When the trace module is 
called from one of these activated trace points, tracing occurs as 
defined for that cpticn. 


The following chart shows the general meaning of each opticn. Fora 
detailed descripticn of the exact fields to be traced, the format of the 
trace entry created, and the trace points, see section "Format of Trace 
Entries." 
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IYEETEC Operand 


This operand enables the user to shorten the amount of information 
traced. For each cption, a subset is defined. For the description of 
the "full" and "short" traces as defined for each option, refer to the 
trace entry format descriptions in the section "Format of Trace 
Entries." The full trace definition is the default. 
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TRCECON_Operand 


The operand allows the user to eliminate tracing for any activated trace 
points hased on internal DL/I conditions. Unless the specified 
conditions are satisfied at a particular trace point, tracing does not 
occur. The first processing step at every activated trace point is to 
check these conditions, which must be satisfied before tracing is 
perfcrmed. One cr more parameters may be specified. 


DDIRS YM - the current name of the data tase as indicated via 
PSTDSGA is compared with the specified DMD name. The 
name must be 8 bytes in length and end with the letter 
'D* 


SDBPHYCD - the current segment code as found in SDBPHYCD of the SDB 
corresponding to the level indicated in JCBLEVIC is 
compared to the user value. The physical code must be of 
the form X'nn* where nn is the hexadecimal value cof the 
physical code. 


PSTBYTNM - the current value of PSTEYTNM is ccmpared as indicated in 
this parameter. A range of RBAS or a comparison of one 
value may be specified. The rba values can be from 1 to 
8 hexadecimal characters without an X or single quotes, 
The values are right-justified if there are less than 8 
characters, If a range is desired, only LE or LT may be 
used as relational operators rol and ro2. If a range is 
not desired, then the first two parameters must be 
omitted. In this case, ro2 may be LT, LE, EQ, GE, or GT. 


OUTPUT _Operand 


The CUTPUT operand controls the destination of the tracing results. 
There are two possibilities: 


SYSLST - each trace entry is printed on SYSLST at the time it is 
created. This option may not be specified in an online 
environment, unless the system is in a debug mode with 
only one DL/IT task active at one time, 


(INCORE,nn) - the tracing entries are kept in a table in virtual 
storage. If the table becomes full, a wrap-around 
condition occurs and the oldest entry is overlaid. ‘nn’? 
specifies the approximate number of entries to be kept in 
the tables; it can be a decimal value between 1 and 32767. 
This number is multiplied by the TRACSIZ value to 
determine the size of the table. 32 is the default. 

When this default is multiplied by the default 256 of the 
TRACSIZ operand, a table size of 8K results, which for 
most options acutally provides space for 200 to 300 
entries. If the calculated INCORE table size is net 
available in virtual storage, half of the amount is 
requested repeatedly until space is obtained. If no 
space is available, no tracing is performed. 


When the INCORE option is chosen, the resulting table is built frem the 
"bottcm up." That is, the first entry is placed in the high address 
¢pace. The header portion is then followed by the data portion of the 
entry. The necessary addresses and lengths for this table are stored in 
the SCD. 
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If the formatted dump option and the INCORE option have bcth heen 
selected, the formatted dump routine invokes the trace table print 
routine to format and print the latest 10 entries of this table. 


TRACSIZ_Operand 


The TRACSTZ operand specifies the maximum decimal number of bytes (nn) 
reguired tc build the largest trace entry for the options selected. The 
Size of the trace entry header need not be included. Refer tc the 
format description of the individual trace entries in the section 
"Format of Trace Entries" for information cn how to determine the size. 
The value specified must be between 8 and 4096. 256 bytes is the 
default and for most cases should be enough. 


Tf the INCORE parameter of the OUTPUT cperand is specified, this number 
is used to calculate the size of the table. Only that space which is 
required to build the trace entry is actually used. If the resulting 
table size is not large enough to hold one particular entry, that entry 
is cmitted from the table, 


If the SYSLST option is selected, the TRACSIZ value is the size of the 
work area used to create each trace entry. Any trace entry which 
results in a length larger than this size is not printed. 


If the third user exit option is used to create trace entries, the value 
of the TRACSTZ operand is used to acquire work space for the user exit 
routine in which te build its trace entry. 


> oe eee ee cee ee le oe ee hee ee eee 


Because of the difficulty in creating a generalized trace module that 
could track all situaticns that may arise in any user environment, the 
ability is offered to the user to control and perform tracing for his 
specific conditicns by way of user exits. 


Three major decisions are made by the DLZTRACE module which the user may 
influence. These are: 


1. Is the current call eligible for tracing? 
2. Is the current trace point activated? 
3. What infcrmaticn should be traced at this selected trace point? 


The entry point name of the user exit rcutine must be specified in the 
DLZTRACE macro in the USREXIT operand. The exit routine, which should 
be written in Assembler language, need not be reentrant. It must not 
issue any supervisor or I/O macros. 


The exit routine should be assembled and catalcged into the relocatable 
litrary. When the DLZTRACE mcdule is link-edited, this module must be 
included via AUTOLINK or an INCLUDE statement. 


The trace module performs as indicated in the macro parameters. If an 
optional user exit routine is specified, then there are three foints at 
which it can be given certrol. These are described in detail below. 


The exit reutine programmer is responsible for knowing what fields or 
table entries are valid at the time the exit routine receives control. 
Therefore, a gocd knowledge of the internal logic of DL/I is necessary 
to use the trace user exit functions. 
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User_Exit Interface 


The interface to the user exit routine is the same for all three exit 
peints. 


The input registers are: 


R1 = parameter list address 

R13 = trace module save area address 
R14 = trace module return address 

R15 = user routine entry point address. 


On entry, the user routine must first store the trace module registers 
in its save area, then set up its own register save area in register 13 
and chain it off the input save area, Before the user exit routine 
returns contrcl to the trace module, all registers except register 15 
must be restored from the trace nodule save area. 


The output register contents must be: 


R1 = parameter list address 
R13 = trace module save area address 
R15 = return ccde. 


The exact meaning of the return code and the parameter list values are 
described with each of the user exits. Only those values that are 
mentioned are available or have meaning for the particular exit. 


The parameter list contains both input information for the user exit 
routine and can contain scme output information. 


User_Exit Parameter List Format 
Hex Dec Name Ln Description 
0 0 TREXPST 4 Address of current PST. 
iY y TREXCALL 4 Address cf action module trace call 


parameter list. The format is described 
in "Format of "Trace Entries." 


8 8 TREXADAT 4 Address of the trace entry to be 
constructed by user exit 3. 

c lz TREXLDAT 2 Length of above trace entry. 

E 14 TREXNUM 1 The current user exit to be processed: 
0 = Exit 1 
4 = Exit 2 
8 = Exit 3 

F 15 TREXFLAG 1 Flag bytes: 


e If TREXFDEC flag is on, the trace 
module decided to trace the current 
call. 


® If off, the call is not to be traced. 
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User_Exit Description 


EXIT 1: The user receives control after the trace module has decided to 
activate or deactivate all selected trace points for this call. The 
decision is based on the specifications in the CALLCON and/or 
STRTKEY/STCPKEY operands. 


Input parameter list: 


TREXPST contains FST address 

TREXNUM contains 0 

TREXFLAG has flag TREXFDEC on if the trace module has decided to trace 
the call; cff, if it decided not to trace call. 


Output: 

No change tc parameter list 

R15 = 0 use trace module decision 

R15 = 4 reverse trace module decision. 


EXIT.2: The user receives control after the decision has been made to 
trace at this roeint. Any TRCECON parameters have already been checked. 
This exit is only invoked if the result of the call condition test 
(including any user exit 1 decision) was to trace. If the trace point 
has been defined te process more than cne option, user exits 2 and 3 are 
given only one exit each. If the decision at user exit 2 is not to 
trace, then no tracing occurs at all. If user exit 3 performs tracing, 
no other tracing is performed at the trace point. 


Input parameter list: 


TREXPST contains PST address 

TREXCALL contains trace point parameter list address 

TREXNUM contains 4 

TREXFLAG has flag TREXFDEC on if the trace module decided te trace at 
this point; off, if it decided not to trace. 


Cutputs: 

No change tc parameter list 

R15 C use trace module decision 

R15 4 reverse trace mcdule decision. 


ou 


EXIT_3: The user exit receives control before any actual tracing is 
performed for the specified trace point. If the trace point has been 
defined to procéss more than cne option, user exits 2 and 3 are given 
cnly one exit each. If the decision at user exit 2 is not to trace, 
then no tracing occurs at all. If user exit 3 performs tracing, no 


cther tracing is performed at the trace point. 
Input parameter list: 


TREXPST contains PST address. 

TREXCALL contains the trace point parameter list address, 

TREXADAT contains the address cf the area to be used by the user exit to 
build a trace entry. 

TREXLDAT contains the length of TREXADAT as specified in the TRACSIZ 
cperand of DLZTRACE, 

TREXNUM contains 8. 


Output: 

R15 = C trace module should do tracing 

R15 = 4 exit routine has done tracing 

If R1& return code is 4, then TREXLDAT must contain the length of the 
trace entry built. 
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The user exit routine is responsible fcr using only the size of the user 
area that is allotted in TREXLDAT at entry to the routine, 


If the user performed the trace with the SYSLST option in cperation, the 
trace module prints the standard header followed by the unformatted 
trace data in both hexadecimal and character format. 


INVCKING THE TRACING FACILITY 


In the batch envircnment, tracing is invoked by coding the TRACE 
parameter in the DL/I parameter card. 


DLI, pgmname, psbname,buff[ , TRACE=modname ] 


The named module is loaded from the core image library by batch 
initialization. Tracing is performed for the program execution 
according to the parameters specified in the generation of DLZTRACE. 


In the online environment, several trace modules may be loaded at 
initialization by entering their names into the CICS/VS PPT, Actual 
selection of the trace module to be used is done by the TSTR systen 
call, see below. 


CNLINE TRACING CONTROL 


To centrel tracing in the cnline environment, two system calls are 
available. After the defined tracing modules have been link-edited into 
the core image library, a user-written application program can issue the 
TSTR (Trace Start) system call naming the phase name of the desired 
trace medule. This causes the tracing module to be loaded and 
activated, Tracing then begins with the next call to DL/T that 
satisfies the user-specified conditions. 


To disable the tracing facility, the TSTP (Trace Stop) system call is 
used. If the trace entries are being accumulated INCORE when ISTP is 
issued, the space for the table is released and is no longer available. 


Chapter 10 of DL/ZI_DOS/VS_Utilities_and_ Guide _for the System Programmer 
contains details of the formats and return conditions of the TSTR and 
TSTP calls in the section "DL/I System Call Format and Returns.” 
Chapter 10 also includes an example of the use of the TSTR and TSTP 


calls. 


TRACE INVOCATION MACRO FOR ACTION MODULES 


The macro DLZTRCAL is inserted into the DL/I action modules at defined 
points. This macro expansion first checks if tracing is enabled. This 
can be determined by checking a byte in the SCD which indicates if the 
trace module is loaded and if this trace point is activated. If tracing 
is not enabled, ncecrmal processing continues. If tracing is enabled, a 
parameter list is passed to the tracing module with the fcllowing 
information: 
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Hex Dec Name Ln Description 
0 0 TRCMODNM 4 Calling module name 
4 4 TRCMODID 1 Trace point ID 
5 5 TRCNOPT 1 Number cf options following 
6 6 TRCTOPT 1 Trace option for this peint. More than 


one is possible. 


The trace module then makes the final check as to whether tracing should 
be performed at this point or not. This includes checking the TRCECON 
operand values and abiding by the results of any user exit routine. 
After processing, control is returned to the calling module. 


A special expansion of DLZTRCAL is used to request the tracing module to 
evaluate any call-tracing conditions as specified in CALLCON, STRTKEY, 
or STOPKEY. This is not a trace point and no tracing can cccur. This 
macro is placed before the first trace point in the call analyzer. 


DLZTRCAL is also used to request the tracing functicn to purge any 
tuffers and to free acquired storage. This is done by the online 
progtam request handler, when a TSTP call is received, and by system 
terminaticn. 


The operands of DLZTRCAL are: 


TYPE=TRACE This is the default to indicate that tracing occurs 
at a predefined trace point. 


CKCALL This is a special invocation to indicate the trace 
module should check the call conditions to determine 
if the call should be traced. 


START This is a special invocation of the trace medule that 
causes it to intialize itself. 
STOP This is a special invocation tc stop tracing. 
CALLER=cccc The identification of the calling module. This 


should be characters 4-7 of the official name and 
must be specified if TYPE=TRACE. 


ID=nn This is a decimal number from 1 to 255 and uniquely 
identifies the trace point. It is required if 
TYPE=TRACE. 


OPT ICN=USERCAL 1 This is the trace option serviced at this trace point. 
USERCAL2 One is required if TYPE=TRACE, but more than one may 
MODTRACE be specified. 

RETRIEVE 
CURRPOS 
VYSAMNINTF 
BHINTF 1 
BHINTF2 
INDEXTRC 
CNLINEBH 


ESTREG=REG This is the number or symbolic name of the register 
that contains the PST address. If the entry is 
cmitted, 1 is assumed. If TYPE=START or STOP, the 
register contains the SCD address. 


Before DLZTRCAL is executed, addressability is required to the SCD. 
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e If TYPE=TRACE, no registers are changed. 

e If TYPE=CKCALL or STOP, the contents of register 15 are destroyed by 
this macro. 

® If TYPE=START, register 15 contains a return code: 


QO = no errer, tracing is initialized. 

4 = GETVIS failure, SIZE parameter omitted from EXEC statement. 
€ = GETVIS failure, program is executing in real mode. 
12 = GETVIS failure, no storage availakle. 


e If TYPE=START, the entry point address cf the trace module must be in 
register 15 before the macro is executed. 


FORMAT OF TRACE ENTRIES 


The contents of a trace entry vary acccrding to the option(s) selected. 
Fach entry is variable length with the following header fields, Ne 
boundary alignnrent is guaranteed for any field. The macro DLZTRENT can 
be used to generate DSECTs for the trace entries. 


St ee eee ape Se aE ee ae ae WOR que GE als AE ES ae EE ee a a 


TRACEHDR DSECT 


Hex Lec Name Ln Description 
0 0 TRHDELEN 2 Length cf trace entry (including header). 
2 2 TRHDCALN 2 Call number relative to 1. 
4 4 TRHDMODN 4 Name of action module that caused tracing, 
8 8 TRHDIRID 1 Trace point ID in action module. 
9 9 TRHDFUNC 1 Code for user's call functicn: 
00 = GO 
01 = GN 
02 = GNE 
03 = GHO 
04 = GHN 
95 = GHNP 
06 = ISRT 
07 = DLFET 
C8 = REEL 
A 10 TRHICODE 1 Type of trace entry 
Name EQU Meaning 
TRHDUC1 x' ot? USERCALL-Type 1 
(start of call) 
TRHDUC2 Xx*'02° USERCALL-Type 2 
{end of cal}) 
TRHDAMOD x'10! MODT RACE 
TRHDRETR x*20!' RETRIEVE 
TRHECPOS x¥*30! CURRPOS 
TRHDVSAM x*50! YVSAMINTF 
TRHDBH1 x' 61" BHINTF-Type 1 {before call) 
TRHDBH2 X%*'62' BHINTF-Type 2 (after call) 


TRHLIN DX x*70! INDEXTRC 
TRHDOLBH x'80° ONLINEBH 
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B11 TRHDFLAG 1 Flag byte 


Nane EQu Meaning 

TRHDS HRT x*8or This trace entry is short 
form 

TRHDOEX1 x'4or User exit 1 reversed 
decision 

TRADOUEX2 X' 20? User exit 2 reversed 
decision 

TRHDUEX 3 x' 10! User exit 3 did tracing 


The remainder cf each entry depends on which option is currently being 
traced. Following are the formats of all trace entries and the trace 

points within the DL/I action modules which cause these entries to be 

created. 


YUSERCALL-Type_1_ Trace Entry Format (Code _ X*01*) 


TROUSRCL1 DSECT (Start of call) 


Eex Bec Nane Ln Description 
6) 0 TRUITIME 8 Time call made (from STCK instruction) 
8 8 TRUIPCBL 2 Length of DBPCB including key feedback 
A 10 TRUTIOLN 2 Length of I/O area {0 if not traced) 
c 12 TRU ISSAL 2 Length of SSAs {0 if none) 
E 14 TRUIPCE Var DBPCB with key feedback 
TRUTIOAR Yar I/O area contents (not traced for GET 
call) 
TRUISSA Var SSAS. 


Note: No short form of this trace entry occurs. The call function code 
in the trace entry header Serves as the short form. 


L/C_AREA TRACING is only performed for ISRT, DLET, or REPL calis. The 


length of the I/O area traced is the largest of: 
e Longest segment length (maximum if variable) 
e® Longest concatenated segment length 


e Longest path call length. 

: If more than one SSA is present, at least one blank separates 
race Point: 

e DLZDLAOO (Call analyzer): At the beginning of user call validation. 


(Some user errors could be detected before this trace point, in which 
case no tracing takes place.) 
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USERCALL-Type_2 Trace Entry Format (Code _X'02"') 


TROUSRCL2 DSECT (End of call) 
Name Lp escription 


0 0 TRU2STC 2 Returned status code (DBPCBSTC) 


Note: Short ferm cf entry ends at this point. 


2 2 TROUZTIME 8 Time at end of call 

A 10 TRU2ZPCRL 2 Length of DBPCB 

Cc 12 TRU2IOLN 2 Length of I/O area (0 if none) 

E 114 TRU ZPCB Var DBECB including key feedback 
TROUZTIOAR Var I/O area contents 


I/0_ AREA TRACING is only performed when data is returned to the user, in 
cther words, for get calls. The length of the I/0 area is the length of 
the data returned to the user. 

Trace Point: 


ae a. 


® DLZDLAO0O (Call analyzer): At the end of processing before control is 
given to PRH. 


MODTRACE Trace Entry Format (Code _X*10%) 


—_ 2S A DP AE ED SD EE ED SD ED —_ 


TRMODTEC CSECT 
Hex Dec Name Ln Description 


0 0 TRM DTIME 8 Time at trace point (from STCK instruction) 


® DIZDLAOO (Call analyzer): On entry after CKCALL 
® DLZDLROO (Retrieve) 


® DLZDLDOC (Delete/Replace) 


* 


DIZDDLEO (Load/Insert) . On entry 
*® DLZIBRHOO (Buffer handler) 

* DLZDHDSO (Space management) 

e DLIZDXMNTO (Index maintenance) 


In buffer handler before VSAM call (medule ID is 'VSAM‘) 


Note: The short and full trace entries are identical. 
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TRRETRV DSECT 


fom ) 
(oe) 
le 
oo 
oy 
+4 
oy 
OQ 
io) 
web 


JCB flags (JCBCCODE) 


x' 80! On Log Child-Log Parent insert, 
Log Parent is present. 

x' aot Deferred delete required. 

x*20! Retrieve deleted segments. 


1 4 TRRTJLIC 1 Level number pointed to by JCBLEV1C 
2 2 TRRILVT 4 Input for DLZSKPG (JCBLVT...) 

6 6 TRRTBGBF 4 Retrieve (BEGBUF) 

A 10 TRRICTTR 4 Work (CURTTR) 

E 14 TRRTPRSW 4 Fields (PROCS®) 

12 18 TRRIKPIT 4 (KEEPIT) 

160 «22 TRRTINDG 1 VL-uUDC flags (DSGINDG) 

17 23 1 Reserved 

18 24 TRRTREGS 60 Contents of registers 14-12 


e DLZTAG when ccmpleting a level 

e DLZSSA when completing a level 

e DLZLTW when accepting a level 

® DIZEODC end of data base condition 


DLZGER not found condition 


DLZREG insert positioning 


2 
Note: The short and full trace entries are identical. 


1O 


TRCURPCS DSECT 


Hex Dec Name Ln Description 
0 0 _ TRCECLEV 1 Current level number (LEVLEV) 
1 1 TRCPCPC 1 Current segment code (LEVPC) 
2 2 TRCPLTTR 4 Current position {LEVTT R) 


(RBN or RBA) 
Note: Short ferm of entry ends at this point. 


6 6 TRCPNOLV 1 Number of level entries in TRCPLEVL 
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7 7 TRCENSDB 1 Number of SDB entries in TRCPSDRBS 

8 8 TRCPBLEVL Level table information 

8 8 TRCPSDBS SDB entry information 
The first three fields contain informaticn for the current level cnly 
{as found via JCBLEV1C). The level table information is traced for 
every active level plus 1, TRCPNOLV contains the number of levels 


traced. The format cf the level entries as found beginning in TRCPLEVL 
iss 


TRIEVEL DSECT 


Eex Dec Name Lp Description 
0 0 TRLVLEV 1 Level number (LEVLEV) 
1 1 TRLVSGOF 2 Offset to segqment (LEVSEGOF) 
3 3 TRLVTTR 4 Current RBN or RBA (LEVTTR) 
7 #7 TRLVF1 4 Flag byte (LEVF1) 


x' 80? Segment at this level newly 
deleted, 

X*agr This level table entry empty. 

X*20! Segment at this level in hold 
status. 

x'10* Segment at this level in 
hierarchical path. 


x'08' Segment at this level moved to 
user. 

x' og? Segment is last of type for 
parent. 

X'02! Segment is first of type for 
parent. 

x'ot This is the last level table 
for PCB. 

8 8 TRLVF2 1 Flag byte (LEVF2) 


x'80* Used by retrieve. 

x'4or Level has not found position 
for higher level. 

x*20! EOD flag. 

x' 10? LEVTAB has been modified. 

x'98* Used by retrieve. 

x'oue Jsed by retrieve, 

x*92° Used by retrieve. 

x'ot Used ty retrieve. 


9 9 TRLVUSOF 2 Offset to segment in I/O area (LEVUSEOP) 
B11 TRL VF3 1 Flag byte (LEVF3) 

x*s0' 

x*4gr 

x*20! 

x?10* 

x'08* This is a pseudo SSA filling 

gap. 


X'OUs At least one member qualified 
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on data. 

x*'02! Every boolean set has at least 
one key field. 

x'o1? 


For each level, except the last, information from the corresponding SDB 
is traced. In addition, if the corresponding SDB has a target (nenzero 
SUCBTARG) and tte target has a current position (nonzero SBDPOSC), then 
the target is also traced. This means that for one level, one or more 
SDBs may ke traced. Each target SDB recurs in the list immediately 
after its parent SDB, A target SDB is easily identified because it has 
no name (TRSDBSYM). 


TRSCE DSECT 


Hex Dec Nane LB Description 

0 0 TRSCES YM 8 Segment name (SCDBSYM) 

8 g TRSDBF3 1 Flag byte (SDBF3) Call sensitivity 
xX? 80! Sensitivity is read only. 
x40" Sensitivity is insert. 
x?'20' Sensitivity is replace. 

x" 108 Sensitivity is delete. 
x'o8' Sensitivity is key only. 
xX*oue Sensitivity is path only. 
x'o2" Sensitivity is exclusive. 
x*01 Sensitivity is load. 

9 #9 TRSDBFS& 1 Flag byte (SDBF4) 

x'4o? Secondary index is main 
processing sequence, 
x'10! Field is in destination parent. 
X*oQat CI-split in HISAM KSDS, 
x*02? Position lost. 
x'ot? Field is in logical child. 
x?ot? Temporary SW for replace. 
Data changed. 
A 10 TRSDBPC 1 Physical code (SDBPHYCD) 
B11 TRSCBTFG 4 Target relationship code (SUBTFLG) 


x'co! Segment is physical parent of 
target of SDBPARA. 

x' 80! Segment is physical parent cf 
SDBPARA. 

x'aor Segment is physical child of 
target of SDBPARA. 

x#20° Segment points to logical parent 
with physical key. 

x10" SDB is a generated SDB cra 
SDB for a physical pair. 

x'os? Segment points to physical 
parent. 

x'ou!" Segment is retrieved via index. 

x*O2* Segment points to logical child. 

x'ott Segment points to logical parent. 
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Cc 12 TRSDBPRV 
10 16 TRSDBCUR 
14 20 TRSDBN XT 


Trace Point: 


® DIZDLAO0O 


TRVSAMIF DSECT 


Hex Dec Nane 
0 0 TRVSREQ 
1 1 TRVSF BK 1 
2 2 TRVYSFRK3 


it 
is 


(Call anlayzer): 


pee 


Previous position {SDBPOSP) 
Current position (SDBPOSC) 


Next position (SDBPOSN) 


At exit from call analyzer. 


VSAMINTF Trace Entry Format (Code_x*50") 


Request (RPLREQ) 


x*00' Point request. 
x'og' Get request. 
x's! Erase request. 
x*oc?t Put request. 
x*oc! Update request. 
x" 10! Insert request. 
x'1g? Check. 

x*1788 ENDREQ. 

a°%C* FCRCIO. 

x* 208 Verify. 

X?'24" Put locate. 


Return code =(RPLFDBK1) 


x*'oo" No error detected. 

xX'og? Concurrent request on Same RPL. 
x*?08!* Logical error, 

x*oc? Physical error. 


Return code = (RPLFDBK3) 
Returns that are not errors 
(RPLFDBK1 = 0). 

X*ou? EOV called during request. 


Logical errors (RPLFDBK 14 = 8). 


X'O4! End of data set reached. 
x'os8' Duplicate record. 
x'oc! Sequence error. 
be Bb, No record found. 
x? 14! Data ALR in exclusive centroel. 
x'18! Volume is not mounted. 
x2 4c! Data set cannot be extended. 
x*20° Invalid RBA specified. 
x*' 24! No key range specified for 
record. 
x' 28! Insufficient virtual storage. 
x*2C* User buffers too small. 
x*ao? PLH in use {No string available), 
x*qyt Access type not requested 
at open. 
x'ust Keyed request for FSDS. 
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x'ac' Address or CNV insert for KSDS. 

x50" Invalid erase request, 

x'548 Invalid specification of 
locate mode. 

x's8? Fositioning error. 

x?'5c! No get UPD issued. 

x*60! Key change for update. 

x*64! Length change for address 
update. 

x*68! Invalid or conflicting RPL 
option specified. 

x' 6c? Improper record length specified. 

x*70! Improper generic key length 
speci fied. 

X*74¢ Invalid request during data 
set loading. 


Physical errors (RPLFDBK1 = 12). 


x'ou? Read error in data set, 
x'Q8* Read error in index set. 
x*'oc * Read error in sequence set. 
xX' 710° Write error in data set. 
x'i4s Write error in index set. 
x'18! Write error in sequence set, 


Short fcrm of entry ends at this point. 


nN oO ££ 


Length of TRVSARG 

RBA returned {RPLRBA) 
Pointer area (RPLAREA) 
Clock time call completed 


Option codes (FELOPTCD) 
First option byte equates: 


x'8o? Keyed access. 

x' aor Addressed access. 

x20" Sequential. 

x*10° Direct processing. 
x'os' Asynchrcnous. 

x'ou! Skip sequential access. 
x*'Q2! CINY access (by RBA). 
x?01° Update. 


Second option byte equates: 


x* sor Search key greater than or 
equal to. 

x* 4g? Generic key request. 

x*20° Note string position. 

x*' 10! No update, 

x'os? Locate mode. 

x' gue Nser buffers. 


RBA or key requested (from RPLARG) 
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TRBHTO DSECT (Befcre call) 


Hex Dec Name In Description 


0 0 TRBHTFO N 1 Caller's request (PSTFNCTN) 
Equates for buffer handler (DLZDBHOO) 
function code: 


xX'O1? Locate control interval with 
C-I RBA. If HD, locate a 
data C-I by RBA pointing to 
a segment. If HISAM or HIDAM 
INDEX, read a record by RBA 
from a KSDS. If HISAM, read 
a record by RBA frem an ESDS, 

x*Q3° Get buffer space. 

x? Ou! Free buffer space. 

X'O4¢ Mark buffers empty. 

x05! If HD, mark a buffer ccntaining 
data altered. If HISAM or HIDAM 
INDEX, write a record by RBA to 
a KSDS. If HISAM, write a 
record by RBA to an EDS. 

x'06'* locate a C-I with an PBA pointing 
to a segment and mark buffer 
altered. 

X'Q7! Purge all buffers altered by 
a task. 

x' os? Write new record to HISAM 
ESDS. 

xX'Q9F Get record from KSDS equal or 
high. 

K'OA® Erase a record ina KSDS. 

x'oB? Get next record from KSDS. 

x' oc Get first record of a KSDS. 

x*OD? Insert record into KSDS by key. 

X'QE? Insert record sequentially 
into KSDS. 


Note: Short form of entry ends at this point. 


1 1 TRBATKYL 1 Length of key at TRBHTKEY 
2 2 TRBETDMB 2 DMB number (PSTDMBNM) 
4 4 TRBHIBLK 4 Relative block number (PSTBLKNM) 
8 8 TRBATEYT 4 RBA or REN (PSTBYTNM) 
Cc 12 TRB HTDAT 4 Address of data in buffer (PSTDATA) 
| 10 = 16 TREHTDSG 4 Address of DSG portion of JCB (PSTDSGA) 
14 = =20 TRBHTKEY Var Key if PSTFNCTN = PSTSTLEQ 
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Note: If PSTFNCTN=PSTSTLEQ, PSTBYTNM contains the address of the key to 
search for. 


Trace Points: 

e DLZDLROO (Retrieve) 

® DLZDLDOO (Delete/Replace) 

e DIZDDLEO (Load/Insert) Before call to buffer handler 
® DLZDXMTO (Index maintenance) 


e DLZDHDSO (Space management) 


BHINTF-Type 2 Trace Entry Format (Code xX *'62"%) 
TRBHFRCM DSECT (After call) 
Fex De Name Ln Description 
0 0 TRB HFRC 1 Buffer handler return code (PSTRTCDE) 


x*00! All CK. 

xtoy? RBN is beyond end of data set. 

x'os? I/O error. 

x08? Permanent read errcr. 

x'oc! No space in data set for 
additions. 

x'10! An illegal call was made. 

x*74! No record found (Retrieve 
by key). 

x' 18" New block was created in 
buffer pool. 

x" ic? Not enough space in buffer pool. 

x20! Size of requested buffer exceeds 
size of buffers in any subpool. 

xf2u' End of data set. No record 
returned. 

x*28° Key or RBA higher than highest 
key or RBA in data set. 

x*2c* End of data set reached on a 
request issued by OPEN, 


ote: Short form cf entry ends at this point. 


1 1 TRBAFDMB 2 DMB number (PSTDABNM) 

3 3 TRBHFOFF 2 Offset to RBA from PSTDATA (PSTOFFST) 
5 5 TRBHFBLK 4 Block number (PSTBLKNM) 

9 9 TRBEFBYT 4 RBA (PSTBYTNM) 

D 13 TRBHFDAT 4 Address of data in buffer (PSTDATA) 
11. #17 TRBHFBFA 4 Address of buffer prefix (PSTBUFFA) 
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e DLZDLROO (Retrieve) 

e DLZDLDCO (Delete/Replace) 

® DLZDDLEO (Load/Insert) After call to buffer handler 
e DIZDHDSO (Space management) 


© DLZDXNTO (Index maintenance) 


INDEXTRC Trace Entry Format (Code X'70'") 
TRINDEX ODSECT 
Hex Dec Nane Ln Description 
0 0 TRIXFNCT 1 Request to index maintenance (PSTFNCTN) 


Perform indicated maintenance for 
segment to ke: 


X*ag? Deleted. 
X*AT?® Re placed. 
X*a2* Inserted. 
X* a3? Unioaded, 


1 1 TRIXWKTSY 1 Special request (PSTWRKT4Y - 1ST BYTE) 
X'02* Delete only primary index. 
x'03' Do not delete primary index. 
x'out Physical delete bit is set. 


Note: Short form cf entry ends at this point. - 


2 2 TRIXDMB 2 DMB number (PSTDMBNM) 
4 4 TRIXEYT 4 ISS RBA (PSTBYTNM#) 
8 8 TRIXSC 1 Segment code cf ISS (DMBSC) 


Irace Point: 


e DLZDXMTO (Index maintenance): At beginning. 


TRONLINE DSECT 


Description 
0 0 TROLIND 1 Schedule & dispatch indicatcr (PPSTIND) 


Hex 


oo 
1a 


Same 


i 
tr 


x'8so! Waiting for I/0o. 
x'40* Cannot schedule due to segment 
INT. 
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x* 20° Cannot schedule due to task 
count. 

x' 10° Task enqueued by buffer handler. 

x' oa This is current task. 

x*o1! Task scheduled. 


oud 


1 TROLID 1 Task ID (PPSTID) 


Note: Short form of entry ends at this point. 


2 2 TROLECB 2 ECB ({PPSTECB) 
& 4 TRCLIEXCI 2 Existing CI (PPSTEXCI+#2) 
6 6 TROLPECY 2 Enqueue /de queue Pending CI (PPSTPECI+2) 
8 8 TROLSUPO 2 Pointers for _ Subpool Space (PPSTSUPO+2) 
A 10 TRCLMATR 2 Matrix Space (PPSTMATR+ 2) 
Cc 12 TROLCH AIL 2 Chain field for (PP STCHAI+2) 
pending CI 
E 14 TROLPST 2 PST pointers for (BF PRP ST) 
10 16 TROLNPST 2 Enqueue/deque ue (BF FRNPST) 
12 18 TROLCIID 6 CI identfication (BLKNUM-DMBNM) (BFFRCITD) 
18 24 TRCLSW 1 Switch ({BFFRSW) 
X'8o! Buffer on write chain. 
x*4o? Buffer being written. 
x* 20° Buffer teing read. 
x'10t Buffer empty. 
x'o8' Buffer waiting for PRED being 
written. 
x'o4 Buffer has permanent read error. 
X*0Q2" Existing CI ID enqueued. 
x*ot Pending CI ID enqueued. 
19 #25 TROLFUNC 1 Caller's request (PSTFNCTN) 
1A 26 TROLBLKN Hf} Block number (PSTBLKNM) 


Trace Points: In buffer handler: 


*® In PSEUVUDINT routine: before WAIT is issued for a task because the 
interleck detection matrix is full. 


®e In ISSWAIT routine: before WAIT is issued for a task because it 
requested a buffer owned by another task. 


e In AFTW routine: before WAIT is issued for a task because it needed 
a data base already in use {ACB busy). 


498 licensed Material - Property of IBM 


The following table shows in which modules each of the DL/I messages is 


issued. Module names are identified and defined elsewhere in this 
publication. 
Message { 
Number { Module 

{ 

| 
DLZ001 { DLZBNUCO 
DLZ002 1 DL ZBN UC 0 
DL2003 ] DLZDDLEO 
DLZ004 { DLZDBHOO 
DL2Z005 i CTLZCBHOO 
DL2Z2007 1 DLZDSEHO, DLZDXMTO 
DL2008 ! DLZRRCOO 
DLZ009 { DLZRRCOO0 
DL2Z010 1 DLZRRCOO, DLZMPIOO 
DLZ0 11 H DLZRRCO0O0 
DL20 12 1 DLZMPIOO, DLZRRCOO 
DLZ0 14 ] DLZRRCO0, DLZMPIOO 
DLZ015 1 DLZRRCOO 
DLZ017 | DLZRRCOO 
DLZ0 18 1 DLZRRCOO 
0LZ019 { DLZRRC O00 
DLZ020 1 DLZDLOCO 
DLZ021 ! DLZDLOCO 
DLZ0 22 | DLZDLOCO 
DLZ0 23 ] DLZDLOCO 
D1Z024 { DLZDLOCO 
DLZ025 1 DLZDLOCO 
DLZ026 | DLZRBRCOO 
CL2027 { DLZDLOC 0 
DLZ028 ] CLZCLOCO 
DLZ029 1 DLZOLIOO 
DLZ0 30 ] DLZCLIOO 
DLZ040 { DLZOLT 00 
DLZ041 { DLZOLIO0 
DLZ0 4&2 { DL ZOLI00 
DLZ0 43 { DLZOCLIOO 
CLZ0 44 | DLZOLI0O 
DIZ045 1 DLZOLIOO 
DLZ0 46 { DLZO0LI00 
DLZ047 j DLZCLIOO 
CLZ048 1 DLZOLI00 
DIZ049 1 DLZOLIOO 
DLZ0 50 \ DLZOLIO0O 
D1L2051 1 DLZCLIOO 
PLZ0 &2 { DLZOLIOO 
D12Z053 | DLZOLIO0O 
DLZ0 £4 | DLZOLIOO 
DLZ055 1 DLZCLI00 
DLZ0 56 1 DLZOLIO0O 
D1Z057 i DLZOLIOO 
DLZ0 58 { DLZOLIOO 
DLZ060 | DLZOLIOO 
DLZ0 61 1 DLZOLIONO 
D1Z062 1 LLZODP 
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Message 


Number 


Module 


0 Le A A EO A AS A A A EE AES TA A SS SE RD SP 


D1LZ0€3 
DLZ0 64 
DLZ0 €6 
DLZ067 
DLZ068 
DLZ069 
DLZ070 
D1LZ071 
DLZ072 
DLZ073 
CLZ074 
DLZ080 
DLZ0 81 
DLZ082 
TLZ083 
DLZ0 84 
DLZOES5 
D120 86 
DLZ087 
D12Z088 
CLZCE9 
DL2Z0 90 
DLZ091 
DLZ092 
PLZ093 
DL 20 94 
DLZ095 
DLZ0 96 
PLZ0¢7 
DLZ098 
DLZ099 
D1LZ100 
DLZ101 
DLZ102 
DLZ 103 
DLZ1 04 
DLZ 260 
DLZ261 
DLZ2€2 
DLZ2 63 
DLZ2€4 
DLZ266 
DLZ301 


DLZ 302 
DL2303 
DLZ 304 
DLZ305 
DLZ 306 
DL2Z3 07 
DLZ3C8 
DLZ309 
DLZ3 10 
DL2Z311 
DLZ312 
DL2Z313 
DLZ314 
DLZ3 15 
DLZ 316 
DLZ317 
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DL ZO DP 
DLZCLIO0 
DLZODP 
DLZODP 

DL ZODP 
DLZODP 
DLZODP 
DLZOLIOO 
DLZOLI00 
DLZCLIOO 
DLZOLIO0 
DLZMSTPO 
DLZMPI00 
DLZBPCO0, 
DLZMSTRO 
DLZEPCOO, 
DLZMPIOO 
DLZMPCOO 
DLZMPTO0 
DLZMPCOO 
DIL ZMPTOO 
DLZMPIOO 
DLZMPIOO 
DLZMPTOO 
DLZMPCO0 
DLZMPCOO 
DLZMPIOO 
DLZMPIOO 
DLZMSTRO 
DLZMPIO00 
DLZMPIOO 
DLZMPIOO 
DLZMPCOO0, 
DLZMPIOO 
DLZBPC00 
DLZMPCOO 
DLZBNUCO, 
DLZBNUCO, 
DLZRRCO0, 
DLZRRCOO, 
DLZRDBL1 
DLZERCOO 
DLZUDMPO, 
DLZURRLO, 
DLZUDMPO, 
DLZUDMBO, 
DLZUDMPO, 
DLZUDMPO, 
DLZURULO, 
DLZURULO, 
DLZUDMPO, 
DLZUDMPO, 
DL ZUDMPO, 
DLZURRLO, 
DLZURDBO 
DLZURD EO 
DLZURDBO 
DLZURGUO, 
DLZURDBO, 
DLZUREDBO 
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DLZMPCO0, 


DLZMPCOO, 


DLZMSTRO 


DLZODP 
DLZO DP 
DLZOLI00 
DLZOLIO0 


DLZURDBO, 
DLZUC350, 
DLZURDBO, 
DLZNRULO 

DLZURDBO, 
DLZURDBO, 
DLZURDRO, 
DLZURDBO, 
DLZURULO 

DLZURULO, 


DLZURULO, 


DLZURGUO, 


DLZURGLO 
DLZUD MPO 


Property 


DLZMPIOO 


DLZMFIOO 


DLZURGLO, 
DLZURULO 
DLZURULO, 


DLZURULO 
DLZUROLO 
DLZUDMEO 
CLZU0 DMPO, 


DLZURRLO 


DLZURDBO, 
DLZURGLO 


of IBM 


DLZURGUO, 


DIZURRLO 


DLZURRLO 


DLZU RRLD 


Message 
Rumber 


ct ee A IT gene TD EE ED eR 


DLZ 318 
DL2Z3 19 


DL2Z320 
DLZ 321 
DLZ322 
DLZ 323 
DLZ324 
DLZ325 
DLZ326 
DLZ 327 
D1LZ328 
DLZ329 
DLZ330 
DLZ 321 
DLZ3 32 
DLZ 333 
DLZ3 34 
DLZ 335 
D123 36 
DLZ 337 
DLZ3 38 
DLZ 339 
DLZ340 
DLZ341 
DLZ342 
DLZ 343 
DLZ345 
DLZ 346 
DLZ347 
DLZ 348 
DLZ349 
DLZ 3£2 
DLZ353 
DLZ 354 
DL2Z355 
DLZ 356 
DLZ357 
DLZ 358 
DLZ360 
DLZ 3€1 
DL2362 
DLZ 3€3 
D1LZ3 64 
DLZ3€5 
DL23 66 
DLZ 367 
D1Z369 
DLZ 370 
DLZ371 
DLZ 373 
D123 74 
DLZ 375 
DLZ376 
DLZ377 
D1LZ378 
DLZ 379 
DL2Z380 
DLZ 361 
DL23 82 


Se ee ema ee el ee ene el ee acc eR el ee el md Ce ome Ce ed ee ee ed ee ee ee 


Module 


DLZURGUO, 
DLZURULO, 
DLZURDBO, 
DLZURULO, 
DLZURULO, 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURD BO 
DLZURDBO 
DLZURE BO 
DL ZURDBO 
DLZU RDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURE BO 
DLZURDBO 
DLZURE RO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DL ZURDBO 
DLZURE BO 
DLZURDBO 
DLZURGUO, 
DLZURGUO 
DLZURGUO 
DLZURGUO, 
DLZURGUO 
DLZURGUO 
DLZURRLO 
DLZURGLO 
DLZURGLO 
DLZURRLO 
DLZURULO, 
DLZURULO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
DLZUCCTO 
CLZUCCTO, 
DLZURGLO 
DLZUC150 
DLZ0C 350 
DLZUC150, 
DLZ0C 350 
DLZURGLO 
DLZURGUO 
DLZURGUO, 
DLZURGUO, 
DLZURGUO, 
DLZURGUO, 
LLZURULO 


DLZURGLO 


DLZURGUO, 


DLZURRLO 


DLZU R GUO, 
DLZODBPO, DLZURRLO 


DLZU DMPO, DLZURULO 


DLZURGLO 


DLZU DMPO 


DLZ2C 150 


DLZUC 350 


DLZU RGLO 
DLZURGLO 
DLZURGLO 
DLZURGLO 
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Message 


Number 


Module 


‘Aes NRL “CURR SO AONED eh ERS “ORE AD OE PA OT SERS GER“ ED ON ERE CE er TERR SED SNS SOA ay SRY MR EE AS EARN, eG AEP ese 


DLZ 3&3 
DLZ384 
DLZ3€5 
DLZ387 
DLZ3&9 
DLZ390 
DLZ 391 


DLZ 392 
DL2Z393 
DLZ 394 
DLZ3 95 
DLZ 3°66 
DLZ397 
DLZ398 
DLZ399 
DLZ476 
DLZ570 
DLZ571 
D125 83 
DLZ 584 
DL2Z585 
DLZ 587 
D1Z588 
DLZ5€9 
DL2772 
DLZ799 
DL2Z800 
DLZ 801 
DLZ802 
DLZ803 
DLZ804 
DLZ8C6 
DLZ807 
DLZ 808 
DLZ830 
DLZ@41 
DLZ8 44 
DLZ 845 
DLZ847 
DLZ8 48 
DLZ850 
DLZ855 
DLZ860 
DLZ&€1 
DLZ862 
DLZ 863 
DLZ864 
DLZ 8 €8 
DLZ888 
DLZ 894 
DLZ908 
DLZ9C5 
DLZ906 
DLZ907 
DLZ908 
DLZ909 
DLZ9 10 
DLZ9 11 
D1LZ912 


502 


. 


Re ed el 2 amp “Oe Oe er ee ee eee ed 


rLZURULO 
DLZUCMNO 
DLZUCMNO 
DLZURGLO 
DLZURGLO, 
DLZUC150 
DLZUDMPO, 
DLZ0C350, 
DLZUDMPO, 
DLZURRLO 
DLZURRLO, 
DLZBACKO 
DLZRDBCO 
DLZ REBCO 
DLZRDBCO 
DLZRDBCO 
DLZDLA00 
DLZUAMBO 
DLZUACBO 
CLZUACBO 
DLZUACBO 
DLZUACBO 
DLZUACBO 
DLZUACBO 
DLL ZUACBO 
DLZDXMTO 
DLZDLD00 
DLZELROO 
DLZDLROO 
DLZDLDOO 
DLZDLD00 
DLZDLDOO 
DLZDLDOO 
DLZDLDOO 
DLZDLDOO 
CLZEHDOO, 
DLZDBHOO 
DLZEDBHOO 
DLZDBHOO 
DLZEBHOO 
DLZDBHOO 
DLZDDLEO 
DLZDDLEO 
[CLZCLDLEO, 
DLZDDLEO 
DLZDDLEO 
DLZDD LEO 
DLZDDLEO 
DLZDXMTO 
DLZBACKO 
DLZBAC KO 
DLZRDBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZELBLO 


DLZURRLO 

DLZURDBO, DLZURULO, DLZURRLO, DLZ0UC150, 
DLZURPRO, DLZURGSO, DLZURG10, DLZURGPO 
DLZURDBO, DLZURULO, DLZURRLO 


DLZURDBO 


DLZGGS PO 


DLZDXMTO 
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Message 
Number 


Module 


cee ne cc ca a CFE ea CLO ely ED cE eR 


D1Z913 
DL2Z9 14 
DLZ9 15 
DLZ916 
DLZ917 
DL2918 
DLZ9 19 
DLZ920 
DL2921 
DLZ922 
DLZ9 23 
DLZ924 
DLZ925 
DL2Z9 26 
DLZ927 
DLZ928 
DLZ929 
DLZ930 
DLZ931 
DL2Z932 
DLZ 933 
DLZ9 34 
DLZ935 
D LZ 936 
DL2939 
DLZ2940 
DLZ945 
DLZ952 
DLZ 9&3 
DLZ954 
DLZ955 
DLZ956 
DLZ957 
DLZ958 
DLZ959 
DLZ960 
DLZ961 
DLZ962 
DLZ9€3 
DLZ964 
DLZ9€5 
DLZ966 
DLZ9€7 
DLZ968 
DLZ96€9 
DLZ970 
DLZ971 
D1Z972 
DLZ973 
DLZ974 
DLZ975 
D1Z976 
DLZ977 
DLZ978 
DLZ979 
D1LZ980 
DLZ981 
DLZ982 
DLZ983 
D1LZ9 84 


re re Ren ee ene nee Ce Ree a) 


[LZEL BLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZELBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZDLBLO 
DLZELBLO 
DLZDLBLO 
DLZEDLBLO 
DLZDLBLO 
DLZURPRO, 
DLZURGPO 
DLZURPRO, 
DLZURG10, 
DLZURPRO, 
DLZURG10 
DLZURGSO, 
DLZURGSO, 
DLZURGPO 
DLZURPRO, 
DLZURPRO - 
DLZURPRO 
DLZURPRO 
DLZURPRO 
DLZURPRO, 
DLZURGSO 
DLZURGSO, 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURPRO 
DLZURG10 
DLZURG10 
DLZURG10 
DLZURG10 
DLZURG10 
DLZURGI0, 
DLZURGPO 
DLZURPRO, 


DLZURGSO 


DLZURGSO, 
DLZURGPO 
DLZURGSO, 


DLZU RGPO 
DLZURG PO 


DLZURGSO, 


DLZURGSO, 


DLZURPRO, 


DLZURGPO 


DLZURGSO, 


Licensed Material 


DLZURG10, DLZURGPO 


DLZURGPO 


DLZURG10 


DLZURG10, DLZURGPO 


DLZURG10, DLZURGPO 


DLZURG10, DLZURPRO 


- Property of IBM 503 


Message { 





Number i Module 
! 
] 
DLZIES | DLZURPRO 
DLZ989 ] DLZU RG10 
LLZ29¢0 1 DLZURGSO, DLZURGPO, DLZURG10 
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The following table shows which modules set the DL/I status codes. 


Status Code 


A ae EE SS meme a 


| 


° | 


Module 


DLZDLA00 
DLZDLAOO 
DLZDLA 00 
DLZDLAOO 


DLZDLAOO, 


DLZ DLAO0O 
DLZDLA0O, 
DLZDLAOO, 


DLZDLDOO, 


DLZDLDOO 
DLZDLA 00 
DLZDLDOO 
DLZDLROO 
DLZDLROO 
DLZDLROO 
DLZDLROO 
DLZDLROO 
DLZDLROO, 
DLZDDIEO 
DLZDLAOO, 
DLZDLAD0 
DLZ.DLAOO 
DLZDLA 00 
DLZDXMTO 
DLZD XMTO 
DLZDXMTO 
DLZD XMTO 
DLZDLDOO 
DLZDLA OO 


DLZDLDCO 


DLZDLROO 
DLZ DLDOO 


DLZDLROO, 


CLZ DDL £0 


DLZDDLEO 
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This table states all DL/I DOS/VS modules residing in the core image 
library. For each module, the following additional information is 
given: 


e The CSECTs that comprise each PHASE. They are listed in the order 
they were linked. Any indented name under a CSECT is an entry point 
within that CSECT. If the indented name is preceded by '*', it 
designates a routine within the CSECT and may, or may not, appear on 
the link-edit map. Unreferenced entry points have been omitted. 


e The name(s) of the module(s) in the relocatable library which are 
needed for linkage editing. 


e The name(s) of the module(s) in the source statement library. For 
each module, source code listings are available on microfiche (under 
the module name). 


e The core ID for the applicable modules. This is located near the 
beginning address of each module and is usually followed by the date 
of last source change in the format MDDY where M is the number of the 
month (1 to C), DD is the day, and Y is the last digit cf the year. 


® Supplementary infcrmaticn. The entry SVA means that the module 
ccencerned is eligible to be loaded into the shared virtual area 
(SVA). Any other entry in this column is the entry point name that 
must be present on the END card when assembling this module, for 
example, END DLZBEGIN. 


CORE CSECT (S)/ 
IMAGE ENTRY RELO SOURCE CORE SUPPL 
LIBRARY FOI RT (S) LIBRARY LIBRARY ID INP 
** CNLINE INITIALIZATION ** 
DFARS IDL DLZOLIO0O DLZOLIOO DLZCLIOO OLT 
*DIZCPIOO 
** DATA BASE BACKOUT UTILITY ** 
DLZBACKO DLZEACKO DLZBACKO DLZBAC KO BACK 
IJ2e0011 
DLZRDBCO DLZRDBCO DLZREDBCO RDBC 
DLZEACMO DLZEACHO DLZ BACMO 
DLZLICOO0 DLZLI000 DLZLIOOO DLZLI000 
AS#TDLI 
IJF UBZZZ IT JF 0B2Z22 
IJJFCBZD IJJFCBZD 
** DL/I BATCH NUCLEUS ** 
DLZBNUCO SCDCSECT DLZEBNUCO DLZBNUCO 5746-xX1 
SCCSTART 
*DLZIWAIT IWTt 
*D LZ PRHBO PRH 
*DL ZABEND ABN 
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CORE CSECT(S)/ 
IMAGE ENTEY 
LIBRARY POINT (S) 


** MES BATCH PARTITICN CONTROLLER * 


DLZBPCO0 DLZBPCO00 


** BUFFER HANDLER ** 
DLZD BHOO DLZEEHOO 
DLZEBHOO 
*MAINROUT 
ROULINK 
*PREPENQ 
*PREPDEQ 
*ABEXIT 
*BOTTOUSE 
* ALLDEC 
*BFFERR EL 
*RETURN 
DLZDBHO2 
*WRITE 
*READ 
*HS BEAD 
*HSWRITE 
*LOWRITE 
*PUTKY 
*S FUT 
¥*STLEQ 
*STIBG 
*GE IN X 


DETIOEER 


*TSTPST1 
DLZEBHO 3 
*ENQ 
¥*DEC 
*CONVADNR 


** LCAD/INSERT ** 
DLZDDLEO 


HDROUTIN 
HSROUTIN 


DLLZDDLEO 


** SPACE MANAGEMENT ** 


DLZDHDSO 
DLZGGS PC 
DL ZRR TRN 
DLZFRSPC 
DLZLLCLC 
CLZSMLCT 
DLZRRHPL 
DLZ RCHBK 


| DLZDHDSO 


DLZRCBK2 


DLZMAMUDT 
DLZMMOFF 
DLZMMCN 

DLZRRHMP 

DFS BL030 

*SNAPDCB 

*SNESW 

*SNPCNT 


RELO 
LIBRA RY 


DLZBPC00 


DLZEBHOO 


DLZDBH 02 


DLZ DBHO3 


DLZ DDLEO 


DLZDHDSO 
DLZGGS PO 


DLZFRS PO 
DLZLLCLO 
DLZMMLCO 
DLZRCHPO 
DLZ RCH BO 


DLZAMU DO 


DLZRRHMO 
DLZDHDSO 


SOURCE 
LIBRARY 


DLZBPCO00 


DLZCBHOO 


DLZDBHO2 


DLZL2BHO3 


DLZCDLEO 


DLZDREDSO 
DLZGGSP0O 


DLZFRSPO 
DLZLLCLO 
DLZMMLCO 
DLZRCH FO 
DLZRCHBO 


DLZMMUDO 


DLZRRH MO 
DLZDHDOO 


CORE 
ID 


DLZBPC00 


DBH 


BFH2 


BFH3 


DLE 


HDO 


SUPPL 
INF 


SVA 
DLZEBHOO 


SVA 


SVA 
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CORE 
IMAGE 
LIBRARY 


CSECT(S)/ 


ENT RY 
POINT(S) 


** CALL ANALYZER ** 


DLZD LAOO 


DLZILA0O 


** DELETE/REPLACE ** 


DLZDLDOO 


DLZDLDOO 
DLZCLDSO 
DLZDLDDO 
DIZDLDAO 
DLZDLDRO 


kk QOFEN/CLCSE ** 


DLZDLOCO 


DLZDLOCO 


** RETRIEVE ** 


DLZDIROO 


DLZ DL R00 
DL ZDLR 10 


DLZRETNO 


CLZEODCO 
DL ZGERCO 
DIZGERO 


DLZGETSO 


DLZWIPEO 
DL ZMO VAO 
DLZMOV BO 
DLZDELTO 
DLZPSL EO 
DL ZHUN TO 
DLZSETLO 
DL2BHO 

DLZSSDE£O 
DLZNOOPO 
DLZCCNCO 


DLZSSAO 


DL ZTAGO 

DL ZL THO 

DLZNOSSO 
DLZHIDAO 

CLZHDAMO 
DLZHISAO 
DLZSTLAO 


DLZSTLGO 


DLZUPDTO 
DL ZKDTEO 
DLZ PCH RO 


DLZISRTO 


DLZVLRTO 
DL ZAREJO 
DLZVLCHO 
DLZXDFTO 
DLZHS AMO 
DLZALTSO 
DLZXMI NO 


DLZXMAXO 


DLZXDBLO 


DLZLOGRO 


DLZRET KO 


DLZRETIO 


RELO 
LIBRARY 


DLZDLAOO 


DLZDLDOO 


DLZDLOCO 


DLZ DLRAQ 


DLZDLRCO 


DLZDLREO 


DLZDLRFO 


DLZDLRDO 


SOURCE 
LIBRARY 


DLZDLAOO 


DLZDLDOO 


DLZILOCO 


DLZ DLRAO 


DIZDLRCO 


DLZDLREO 


DLZDLRFO 


DLZDIRDO 
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Ce td 


DLA 


DLD 


LOC 


LRO 


LRO 


LRO 


LRO 


LRO 


SVA 


SVA 


CORE 
IMAGE 
LIBRARY 


CSECT(S) / 
ENT RY 
POINT (S) 
DLZKDRKO 
DLZKDTLO 
DLZUPDCO 
DLZU PDLO 
DLZAPSTO 
DLZYEN 10 
DLZYSTCO 
DLZYENDO 
DLZEOSTO 
DLZPSTNO 
DLZPST AO 
DLZPOSAO0 
DLZPSTTO 
DLZPSTOQO 
DIZSKEGO 
DLZSKPSO 
DLZSKPDO 
DLZSKPEO 
DLZRLNKD 


(DLZDL R00) 


** DL/I TEST PROGRAM 
DIZDLTXX DLITCBL 
DIZSNAE 
DLZLIO0O 
CBLTDLI 
IJGFIZZZ 
TJJFCBID 
IJ JFCIID 


** DIyI TEST PROGRAM - 


DLZDLTXY DLITCBL 
DLZSNAP 
DLZLIO00 
CBLTDLI 
IJGFIZ72Z 


TJ JFCBID 


RELO 
LIBRARY 


ae ewaee oo 


DLZDLRGO 


DLZ RLNKD 
BATCH ** 
DLZDLTXX 
DLZLI 9000 


IJGFIZ2ZZ 
IJJFCBID 


ONLINE ** 


DLZDLTXKY 
DLZLI000 


IJ GFIZZZ 
IJJFCBID 


IJJFCIID 


** WORK DATA SET GENERATOR ** 


DLZDSEHO DLZDSEHO DLZDSEHO 
DLZEEGIN 
OPEN WORK 
IJPSZZW0N II FSZZWN 
IJFVZZWN 
IJGFICZZ IJGFICZZ 
TJIGQOCZZ IIGQOC ZZ 
TIGVCC2ZZ 


** INDEX MAINTENANCE ¥** 


DLZD xMTO DLZCOXMTO CDLZDXMTO 


** BATCH FCRMATTED DUMP ** 


DLZFSDPO 
DLZTRPRO 


DLZFSDPO DLZFSDPO 


SOURCE 
LIBRARY 


sean eewa ae 


DLZ DLRGO 


DLZRLNKD 


DLZDITXX 


DLZLIO00 


DLZPELTXKY 


DLZLI000 


DLZDSEHO 


DLZDXMTO 


DLZFSDPO 


LRO 


LRO 


DLT 


DLZLI000 


DLZDLTXY 


DLZLI000 


DS EH DLZ BEGIN 


XT SVA 


FSD 
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CORE 
IMAGE 
LIER ARY 


ae ene 2e @ 


** MPS MASTER PARTITION CONTROLLER 


DLZMPCOO 


** MPS BATCH MODULE ** 


DLZMPIOO 


CSECT(S)/ 


ENT RY 
POINT (S) 


DLZ MECOO 


DLZMP1I00 
*DIZMPRH 
DLZMINIT 
*DLZMT ERM 
*DL ZMM SG 
*DLZMABND 
DLZCONSL 
DLZCIMOD 
DLZMMSGT 


RELO 
LIBRARY 


DLZMPCOO 


DLZMPIOO 


DL ZMMSGT 


** MPS STOP TRANSACTION ** 


DLZM STPO 


DLZMSTPO 


DLZMST PO 


** MPS START TRANSACTION ** 


DLZMSTRO 


DLZMST RO 


** CNLINE NUCLEUS ** 


DLZNOUCxX 


** DATA BASE LOGGER ** 


CLZREBIO 


( DLZREBLO) 


DLZODP 
DLZCD P00 
DLZSC HDL 

DLZCDPO 1 
DLZTK TRM 
DLZCD E03 
DL ZODP 02 

CLZPRHOO 
DL ZABN DO 

DLZCWAIT 

DLZERMSG 

DLZCVS EX 

DL ZNUC 
SCDSTART 

DLZFTDPO 

DLZMMSGT 


DLZEDBLO 
ADTRASLO 
DL ZIDBLO 
IOFILA1 
LOGOUT 


IJFUZZZN 


IJ FUZZ2ZZ 
CNLLOGWR 
SAVE 
PRIVECE 


** DATA BASE LOGGER 


DLZRUBL1 


DLZEDBL1 
DLZRDBLO 


DLZMSTRO 


DL ZODP 


DLZODP 


DLZODP 


DLZODP 
DLZODP 
DLZODP 


DLZFTDPO 


DLZMMS GT 


DLZRDBLO 


IJPUZZZN 


DLZ RD BLO 


DLZRCDBL1 


SOURCE 
LIBRARY 


=~ ea ee 


* 


DLZMPCO0 


DLZMPI00 


DLZENSGT 


DLZMSTPO 


DL ZMSTRO 


DLZCDP 


DLZODP 


DLZOCP 
DLZODP 
DLZCDP 
DLZODP 
DLZACT 


DLZFIDPO 
DLZMMSGT 


DLZRDBLO 


DLZREBLO 


WITH CICS JOURNALING ** 


DLZRDBL1 
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CORE 
ID 


DL ZM PCOO 


DLZMPIOO 


DLZMSTPO 


DLZMST RO 


DPO 


DP 1 


DP2 


PRH 


IW? 


EXP 


CBL 


DBJ 


SUPPL 
INF 


~— ewww 


DLZMINIT 


DLZIDBLO 


DLZIDBLO 


CORE 
IMAGE 
LIBRARY 


a: <a on 


CSECT(S)/ 
ENTRY 
POINT (S) 


RELO 
LIERARY 


Re wmwew @> 


** BATCH INITIALIZATION ** 


TLZRRCOO 


DLZRRCOO0 
*E RRORMSG 
DL ZBMSGT 
DLZRDR 
DLZCON SL 
DLZRRC10 
*DLZRRAOO 
*DLZPCC00 
*DLZDBLNO 
*LOADDMBS 
*PCBROUT 
*DLZCPIOO 
*DM BLOADR 


DLZRRCO0O 


DLZBMSGT 
DLZRRCOO 


SOURCE 
LIBRARY 


DLZRRCOO 


DLZESSGT 
DLZ RRCOO 


** CICS/VS SYSTEM TERMINATION INTERFACE ** 


CLZSTPO0O 


DLZSTPOO 


DLZSTPOO 


DLZSTPO0O 


RRC 


DLZRDR 


** APPLICATION CONTROL BLOCK CREATION UTILITY ** 


DLZ0 ACBO 


DLZUACBO 
PRIMSG 
DLZDLBLO 
DIZDLBAO 

BLDJCB 
DLZO0AMBO 
PCHDTF 
IJSYSLN 
DLZLBLMO 
DLZUSCHO 
IN SRCH 
CLCSESCH 
DLZUMSGO 
DLZUMGTO 
DLZDPSBO 
TJICPDIN 
IJJFCBZD 
IJJFCIZD 


DLZU AC BO 


DLZDLBLO 


DLZU AM BO 


DLZLBLMO 
DLZUS CHO 


DLZUMSGO 
DLZUMGTO 
DLZDPSBO 
IJICPDIN 
IJJFCBZD 


DLZU AC BO 


DLZDIBLO 


DLZUAM BO 


DLZLBLNO 
DLZUSC HO 


DLZUSSGO 
DLZUMGTO 
DLZDPESBO 


** DATA BASE CHANGE ACCUMULATION UTILITY ** 


DLZUCUMO 


(DLZ UCUM0) 


DLZUCUMO 
DLZERRTN 
DLZUSPKL 
DLZWCRKF 
DLZPRNT 
DLZSLOG 
DLZUCONS 

DLZUCCTO 

DLZUC150 
DLZUEX15 

DLZ0C350 
DL20EX35 

DLZUCERO 

DLZCUMMO 

IJF SZZYN 
LJIFVZ222 
IJFSZZWZ 

ITJGQICZZ 


DLZUCUMO 


DLZUCCTO 
DLZUC150 


DLZ0C350 
DLZUCERO 


DLZ CUMMO 
IJFSZZYN 


TIGQICZZ 


DLZUCUSO 


DLZUCCTO 
DLZ0C150 


DLZ0UC350 


DLZUCERO 
DLZCUMMO 
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UACB 


DLBL 


LBLM 


DPSB 


UCU Ss 


uccT 
uc15 


0c35 


UCER 


DLZRRCST 
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CORE 
IMAGE 
LIBRARY 


naeww wa a 


CSECT (S)/ 


ENTRY 
POINT (S) 


IJGQIZ22Z 


IJGQ0C2ZZ 


IJGC0Z22 


IJJFCBZD 


IJ JFPCIZD 


IJ 20012 


RELO 
LIBRARY 


IJIGQOC ZZ 
IJJFCBZD 


DLZUCUNO 


** IMAGE CCPY UTILITY ** 


TLZU DMPO 


** RECOVERY 


DLZU RD BO 


DLZUDMPO 
DLZDMPMO 
TJJFCBZD 
IJPSZZWN 


IJFV2ZZ9N 


TIGQOCZZ 


TJIGV0CZZ 


UTILITY ** 


DLZURDBO 
DLZLIOOO 

CBLIDLI 
DLZRDBHO 
IJJFCB2ZD 
IJFSZZWN 


IJFVZZUN 


IJGQICZZ 


IJGVICZZ 


DLZUDMPO 
DLZDMPMO 
IJJFC8Z0 
IJF SZZEN 


IJGQOC ZZ 


DLZURDBO 
DLZLI000 


DLZRDBMO 
IJJFPCBZD 
IJ FSZZaN 


IIGQICZZ 


SOURCE 
LIBRARY 


DLZUCU MO 


DLZUDMNPO 
DLZDMPMO 


DLZURDBO 
DLZLI000 


DLZ RDBMO 


** HD REORGANIZATICN RELOAD UTILITY ** 


CLZURGLO 


DLZURGLO 
DLZLIO00 

CBITDLI 
DLZRGLMO 
IJJFCBZD 
TIGQICZZ 


TJGVICZZ 


IJ FSZZ WN 


IJFVZZ2ZN 


DLZURGLO 
DLZLIO00 


DLZRGLMC 
TJJFCBZD 
TJIGQIC ZZ 


TUF SZZWN 


** PREFIX UPDATE OTILITY ** 


DLZURGEO 


DLZURGEO 
DLZURGMO 
DLZLI000 
AS HETDLI 
CBLTDLI 
ITJJFCBZC 


IJ JFCIZD 


IJFSZZWN 


IJFVZZZN 


(DLZURGEO) IJGQICZZ 


IJGVICZZ 


DLZURGPO 
DLZU RGMO 
DLZLI000 


IJ JFC BZD 


IJ FSZZ0N 


IIGQICZZ 


** DATA BASE SCAN UTILITY ** 


DLZURGSO 


DLZURGSO 
DLZCON SL 
DLZURGHO 


DLZURGSO 


DLZU RGMNO 


DLZURGLO 
DLZLI000 


DLZRGLMO 


DLZURGPO 
DLZURGMO 
DLZ1II000 


DLZURG SO 


DLZURGHO 
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CORE 
ID 


DMP 


RDB 
DLZL1I000 


RGL 
DLZLIO00 


URGP 


DLZLIO00 


URGS 


SUPPL 
INF 


CORE 
IMAGE 
LI BRARY 


CSECT(S) / 
ENTRY 
POINT (S) 
DLZ1I000 
ASMTDLI 
IJJFCBZD 
IJSJFCIZD 
IJPSZZWN 
IJFVZZZN 
IIGQICZZ 
IJGVICZZ 
1JGFICZZ 


** HD REORGANIZATION 


DLZU FGU0 


DLZURGUO 
DLZCCNHSL 
DLZLION00 

CELTDLI 
DLZRGUNO 
IJJFCBZD 
IJFUZZZN 
IJGUOCZ2Z 
IJGUICZZ 


** PREFIX RESCLUTION 


DPLZURG10 


DLZURG10 
DLZ URGSO 
IJJFCBZD 
IJ IJFCIZD 
IIGFICZZ 
IJGQICZZ 
LJGVICZZ 
IDF SZZWN 
IJFVZZ2N 
IJ FVZZUN 
LUFFZZZN 
IJGOQ0CCZZ 
IIGVOCZZ 
DLZX15S1 
DLZX15S2 
DLZX35S1 
DLZX35S2 


RELO 
LIBRARY 


DLZLI000 
IJ JFCBZD 
ITJFPSZZ4N 
IJGQICZZ 


IJGFIC2ZZ 


SOURCE 
LIBRARY 


DLZLI000 


ONLOAD UTILITY ** 


DLZURGUO 
DLZLI000 
DLZRGUMO 
IJJFCBZE 
IJFUZZZN 
IJGUOCZZ 
TIGUIC ZZ 
UTILITY ** 
DLZU RG 10 
DLZURGMO 
IJ JFC8ZE 


IJGFICZZ 
IJGOQIC ZZ 


ITJF SZZWN 
IJ FFZZZN 
TJGQOCZZ 


DLZORG 10 


** PREREORGANIZATION UTILITY ** 


DLZURPRO 


DLZUERPRO 
DLZLI000 
ASNTDLTI 
DLZURG MO 
IJ JFCBZD 
IJGFOCZZ 


DLZURPRO 
DLZLIO000 


DLZURGMO 
IJJFCBZD 
ITJGFOCZZ 


DLZURGOO 
DLZLIO00 


DIZRGU EO 


DLZURG 10 
DLZURG MO 


DLZURG10 


DLZURPRO 
DLZLI000 


DLZOR GMO 


** HISAM REORGANIZATION RELOAD UTILITY ** 


DLZURLO 


DLZURRLO 
DLZ RRLEO 
IJJFCBZD 
IJGQICZ2Z 
IJGVIC ZZ 
IJFVZZWN 
Id FVZZ WZ 


DLZURRLO 
DLZRRLMO 
IJJFCB2ZD 
TJGQICZZ 


IJFVZZWN 


DLZURRLO 
DLZ RRLMO 
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SU PPL 
ID INF 


DLZLI000 


RGU 


DLZLI000 


RG1 


RPR 
DLZLI000 


RRL 
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CORE 
IMAGE 
LIER ARY 


** HISAM REORGANIZATION 


DLZURULO 


CSECT(S) / 


ENT RY 
POINT (S) 


a: 2m <= a 


DLZURULO 
DLZRULMO 
IJJFCBZD 
LTUFVZZWN 
IJGQOC2ZZ 


IJGVOCZZ 


RELO 
LIBRARY 


SOURCE 
LIBRARY 


_ a ab ab on we 


UNLOAD UTILITY ** 


DLZURULO 
DLZRULMO 
TJIJFCBZD 
IJ FVZZWN 
IJGQOC ZZ 


** DL/I TRACING FACILITY ** 


user 
chosen 


DLZTRACE 


DLZTRPRO 


ITJJFCBIC 


user 
chosen 
DLZTRPRO 
IJJFCBIC 


DLZURULO 
DLZ RULMO 


DLZTRACE 


DLZTRPRO 
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CORE SUPPL 
ID INF 
RUL 

TRC 

TRP 


ACB 
ACT 
EPC 
CA 
cI 
CEL 
CSA 
CSMT 
IBD 
DDIR 
DMB 
DSG 
ECB 
EXLST 
ELB 
FSE 
Iss 
JCA 
JCB 
Jct 
LEVTAB 
LSDB 
LLC/cc 
MEC 
MPS 
PCB 
PCF 
ECL 
PDIR 
PPST 
PPT 
FROCCET 
PSB 
PSDB 
PSIL 
EST 
PTB 
PTF 
PUB 
RAP 
RBA 
RBN 
RPL 
scD 
SDB 
SSA 
TCA 


ABBREVIATIONS 


Access method ccntrol block (VSAM) 
Application control table 

Batch partition controller 
Control area (VSAM) 

Control] interval (VSAM) 

Catalog parameter list (VSAM) 
Ccmmon system area (CICS) 

Control sytem master terminal (CICS) 
Data base description 

Data management block directory 
Data management block 

Data set group 

Event centrel block (DOS) 

Exit list (VSAM) 

Field description block 

Free space element 

Index source segment 

Journal control area (CICS) 

Job control block 

Journal control table (CICS) 
Level table 

logical segment description block 
Low level code/continuity checking 
Master partition controller 
Multiple partition support 
Program control block 

Physical child first pointer 
Physical child last pointer 

PSB directory 

PST prefix 

Processing program table (CICS) 
Processing option 

Program specification block 
Physical segment description block 
PSB segment intent list 

Partition specification table 
Physical twin backward pointer 
Physical twin forward pointer 
Physical unit block (DOS) 

Root anchor point 

Relative byte address (VSAM) 
Relative byte number 

Request parameter list (VSAM) 
System contents directory 

Segment description block 

Segment search argument 

Task communication area (CICS) 
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ACB Extension - ACBKT 388 
ACBXT - ACB Extension 388 
Accumulation Header Record 
-~ DLZUCUMO 439 
Accumulation Record - DLZUCUMO 440 
ACT - Application Control Table 320 
Application Contrel Table - ACT 320 
Application Program Scheduling Record 
- DLZRDBLO, DLZRDBL1, and DLZBACKO 440 
Application Program Termination Record 
- DLZRDBLO, DLZRDBL1, and DLZBACKO 441 


BFFR - Buffer Prefix 392 
BFPL - Buffer Pool Control Block 
Prefix 390 
BHINTF - Type 1 Trace Entry Format 495 
BHINTF - Type 2 Trace Entry Format 496 
BPC Information Table - DLZTWAB 390 
Buffer Pool Control Blocks, DL/I 3848 
Subpool Directory - SUBD 432 
Buffer Prefix - BFFR 392 
Prefix - BFPL 390 . 
Subpool Information Table - SBIF 432 
Buffer Prefix - BFFR 392 


Checkpoint Record - DLZURGUO 441 
Compression CSECT - CPAC 393 

Control Block, List - DLZUSCHO 454 
Control File List Entry - DLZURPRO 442 
CPAC - Compression CSECT 393 

CURREOS Trace Entry Format 490 


DACT - Direct Algorithm Communication 
Table 401 

Data Base Description - DBD 394 

Data Base Log Record - DLZRDBLO, 
DLZRDBL1, and DLZBACKO 443 

Data Management Block - DMB 382 
Data Management Block Directory - 
DDIR 400 

Data Management Block (Prefix) - 
DMB 399 

Date/Time Table - DLZUCUMO 445 

DBD - Data Base Description 394 
DBD Generation Control Block 
Output - DBDGEN 394 

TBDGEN - DBD Generation Control 
Block Output 394 

DDIR ~- Data Management Block 
Directory 400 

Delete Work Area - DLZDLDO0 445 

Delete Work Space Prefix - DLZDLDONO 447 
Direct Algorithm Ccmmunication 
Table - DACT 401 

DL/I Control Record - DLZRECO 447 
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DLZBACKO, 
Application Program Scheduling 
Record 440 
Application Program Termination 
Record 441 
Data Base Log Record 443 
DLZBFFR - Buffer Prefix 392 
DLZBPPL - Buffer Pool Control Block 
Prefix 390 
DLZDLDOO, 
Delete Work Area 445 
Delete Work Space Prefix 447 
CLZDLOCO - DL/I Control Record 
(DLZRECO) 447 
DLZREBLO/1, 
Application Program Scheduling 
Record 440 
Application Program Termination 
Record 441 
Data Base Log Record 443 
File Open Record 448 
DLZRECO - DL/I Control Record 447 
CLZSBIF - Subpool Informaticn Table 432 
DLZTWAB - BPC Information Table 390 
DLZUCUMO, 
Accumulation Header Record 439 
Accumulation Record 440 
Date/Time Table 445 
TLZUDMPO, 
Dump Header Record 447 
Dump Record Prefix 448 
DLZURGOO, 
Checkpoint Record 441 
Output Record Containing Segment 
Prefix 456 
Output Table Record 456 
SSA for GU Call by Key 459 
SSA for GU Call by RBA 460 
DLZURBPRO, 
Control File List Entry 442 
Secondary List Entry 458 
DLZURRLO, 
Header Record 449 
Input Data Record 451 
DLZURULO, 
Output Data Record 455 
Output Header Record 455 
Short Segment Table 459 
Statistics Record 460 
DLZURWF1 - Input Work File Record 452 
DLZURWF3 - Output Work File Record 457 
DLZUSCHO, 
List Control Block 454 
Sorted List Block 459 
DLZXCB1 DSECT - XCB1 402 
DLZXMTWA - Index Work Area 449 
DLZXMTWA - SSA for the XMAINT Call 
to the Analyzer 460 
DMB - Data Management Block 382 
DMB - Prefix 399 
IMB Directory - DDIR 400 
DMB Subpool Directory 432 
CMBACBXT - ACB Extension 388 
DMBCPAC - Compression CSECT 393 
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DHBDACS - Direct Algorithm Communication 
Table - DACT 401 
DMBPSDB - Physical Segment Description 
Block 417 
DMBSEC - Secondary List 426 
DMBXMPRM ~ Index Maintenance 
Parameters 403 
Dope Vector, PCB - DPPCB 420 
DPPCB - PCB Dope Vector 420 
DSG Entries 406 
DUMP, 
Header Record - DLZU0DMPO 447 
Record Prefix - DLZUDMPO 448 


Expansion Block, SDB 431 


FIB - Field Description Block 402 

Field Description Block - FDB 402 
File Open Racord - DLZRDBLO and 
DLZRDBL1 448 


Generation Control Block, PSB - PSGEN 424 
Header Record - DLZURRLO 449 


Index Maintenance Parameters - XMPRM 403 
Index Work Area - DLZXMTWA 449 

INDEXTRC Trace Entry Format 497 

Input Data Record - DLZURRLO 451 

Input Work File Record - DLZURWF1 452 


JCB - Job Control Block 403 
Job Control Block - JCB 403 


Level Table - LEVTAB 407 
LEVTAB - Level Table 407 
List Block, Sorted - DLZUSCHO 459 
List Control Block - DLZUSCHO 454 


MODTRACE Trace Entry Format 489 
MPC Partition Table - MPCPT 409 
MPCPT - MPC Partition Table 409 


CNLINEBH Trace Entry Format 497 

Output Data Record - DLZURULO 455 

Output Header Record - DLZURULO 455 

Output Record Containing Segment Prefix 
- DLZURGUO 456 

Output Table Record - DLZURGNO 456 

Output Work File Record - DLZURWF3 457 


Partition Specification Table - PST 410 
Partition Specification Table¢, 
Prefix - PPST 417 
PCB Dope Vector - DPPCB 420 
PCB - Program Control Block 419 
PDIR - PSB Directory 423 
Physical Segment Description 
Block - PSDB 417 
PPST ~ PST Prefix 417 
Prefix, DMB 399 
Prefix, Partition Specification Table 
- PPST 417 
Prefix, PSB 421 


518 Licensed Material - Property of IBM 


Program Control Block - PCB 419 
Program Specification Block 386 
Program Specification Block 
(Prefix) - PSB 421 
PSB - Prefix 421 
PSB - Program Specification Block 386 
PSB Directory - PDIR 423 
PSB Generation Control Block 
Output - PSGEN 4248 
PSB Intent List - PSTL 425 
PSDB - Physical Segment Description 
Block 417 
PSGEN - PSB Generation Control Block 
Output 424 
PSIL - PSB Intent List 425 
PST - Partition Specification Table 410 
PST Prefix - PPST 417 


RETRIEVE Trace Entry Format 490 
RGUSFGLIN, Field Description 457 


SBIF - Subpool Information Table 432 

SCD - System Contents Directory 433 
SCDEXTDS - System Contents Directory 
Extension 437 

SDB Expansion Block 431 

SEB - Segment Descripticn Block 429 
SEC - Secondary List 426 

Secondary List - SEC 426 

Secondary List Entry - DLZURPRO 458 

Segment Description Block - SDB 429 

Short Segment Table - DLZURULO 459 

Sorted List Blcck - DLZUSCHO 459 

SSA for GU Call by Key - DL2Z20RGU0 459 

SSA for GU Call by RBA - DLZURGUO 460 
SSA for the XMAINT Call to the 
Analyzer 460 

STABAB, Field Description of 461 

Statistics Record - DLZURULO 460 

SUBD - Subpool Directory 432 

Subpool Information Table - SBIF 432 

System Contents Directory Extension - 
SCDEXTDS 437 

System Contents Directory - SCD 433 


Trace Entry FPormats 487 

Trace Entry Header Format - TRACEHDR 487 
TRACEHDR Trace Entry Header Format 487 
TRBHFROM Trace Entry Format 496 
TRBHTO Trace Entry Format 495 
TRCURPOS Trace Entry Format 490 
TRINDEX Trace Entry Format 497 
TRLEVEL Format 491 

TRMODTRC Trace Entry Format 489 
TRONLINE Trace Entry Format 497 
TRRETRV Trace Entry Format 490 

TRSDEB Format 492 

TRUSRCL1 Trace Entry Format 488 
TRUSRCL2 Trace Entry Format 489 
TRVSAMIF Trace Entry Format 493 


USERCALL-Type 1 Trace Entry Format 488 
USERCALL-Type 2 Trace Entry Format 489 


VSAMINTF Trace Entry Format 493 
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JCB1 - DZLXCB1 DSECT 402 
X¥MPRM - Index Maintenance Parameters 403 
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